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SUMMARY 

The  TRAM  is  a multiphase  set  of  computer  programs.  The  following  fig- 
ure is  the  overall  flow  diagram  which  depicts  each  program  within  TRAM  and  the 
data  sets  associated  with  it.  Each  program  except  for  the  sorting  steps  is  de- 
scribed by  a user's  guide  and  programmer's  guide.  This  document  is  the  Pro- 
grammer's Guide. 

The  programmer's  guide  is  intended  to  be  a supplement  to  the  user  s 
guide  thereby  saving  unnecessary  repitition  except  where  the  repetition  is  use- 
ful for  understanding  the  material. 

The  purpose  of  Phase  1 is  to  assemble  most  of  the  data  and  to  check  it 
for  consistency  and  completeness.  The  result  of  Phase  1 is  normally  a tape  which 
is  passed  to  Phase  2.  Phase  2 makes  further  checks  on  linkages  and  network  in- 
tegrity. Phase  2 prepares  lists  of  names,  student  demands,  trainee  source  lists 
and  resource  lists.  Phase  3 resolves  the  trainee  demands  into  classes  and  deter- 
mines the  amount  of  resources  used  by  simulating  the  training  system.  The  output 
of  Phase  3 consists  of  source  and  lag  records  which  indicate  the  occurrence  of 
trainee  matriculation,  lags  due  to  lack  of  resources,  and  an  unused  resources 
file.  Phase  4 computes  the  amount  of  resources  used  by  comparing  the  unused  and 
original  resources,  and  then  prepares  an  economic  analysis  of  the  run.  Phase  5 
processes  the  trainee  source  and  lag  records  and  writes  a report  on  these  uses. 

TROLIE  is  a quick-look  version  of  Phases  1,2  and  3 of  TRAM  which  can 
be  used  for  less  detailed  analysis. 
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Section  1.1 


INTRODUCTION 


The  purpose  of  phase  1 is  to  read  the  user  inputs  and  convert  them 
to  the  internal  format  required  for  phase  2.  It  also  tests  the  inputs  for 
validity  and  provides  the  necessary  outputs  to  document  the  run. 

The  manual  is  intended  to  aid  the  programmer  in  the  operation  and 
modification  of  the  computer  program  by  supplementing  the  users'  guide. 


I 
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Section  1.2 

< 

PROGRAM  DESCRIPTION 

Phase  1 performs  the  following  functions: 

• reads  the  input  cards  and  prints  them 

• checks  all  values  for  validity 

• prints  formatted  tables  of  the  inputs 

• replaces  user  assigned  names  with  an  internal  ID  number 

• plots  a course  block  diagram 

• sorts  the  data  records  and  writes  them  onto  unit  10  for 

phase  2. 


Phase  1 initializes  certain  common  areas  with  data  contained  on  its 
initialization  file  (unit  9) . The  values  on  this  file  are  considered  program 
constants,  rather  than  inputs,  and  any  changes  to  them  arc  usually  accompanied 
with  program  modifications.  See  Section  10  for  for  a description  of  this  file. 

The  values  from  each  input  card  are  printed  as  they  are  read.  Also, 
each  numeric  value  is  tested  against  a range  of  acceptable  values  to  see  if  it 
is  valid.  If  it  is  not,  a diagnostic  message  is  printed,  which  will  appear  im- 
mediately after  the  card  on  the  input  card  listing. 

The  inputs  are  stored  in  data  blocks  that  are  held  in  o.  single  large 
array.  The  blocks  of  each  type  are  chained  together  by  pointers  to  form  a se- 
quential file.  For  a detailed  description  of  this  system,  see  the  description 
of  common  FILE  (in  Section  1.7),  and  then  the  internal  data  block  descriptions 
(Section  1.8). 


After  all  inputs  have  been  read,  they  may  be  optionally  re-printed  in 
formatted  tables.  The  purpose  of  this  printout  is  to  show  all  the  inputs  in  an 
easily  readable  form. 
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The  next  processing  performed  is  to  generate  a table  of  all  user 
igned  names,  and  to  replace  all  references  to  these  names  with  internal  ID 
jmbers . Some  of  the  subroutines  that  do  this  are  table  driven.  That  is, 
they  locate  where  names  are  defined,  and  where  they  are  referenced  by  the  use 
of  tables  read  from  the  initialization  file.  It  is  during  this  processing  that 
undefined  or  multiply  defined  names  are  detected  and  flagged. 

■ 

If  no  errors  have  been  detected  up  to  this  point,  the  course  block 
diagram  is  plotted  (optional) . Additional  error  messages  are  printed  if  the 
processing  blocks  are  not  in  the  proper  order  for  plotting. 

. 

I 

Next,  a subroutine  is  called  to  complete  the  information  in  the  CCTS, 

PMT  group,  and  PMT  data  blocks.  This  consists  of  filling  in  the  airbase  number  . = 

and  the  time,  which  are  obtained  from  the  airbase  event  that  is  specified  by 
thc  block' 

1 

The  final  processing  performed  in  phase  1 is  to  sort  the  input  data 
and  write  it  to  file  10  for  input  to  phase  2. 

I 

I 
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Section  1.3 
DESCRIPTION  OF  INPUTS 


The  input  cards  for  the  TRAM  model  have  fixed  format  fields,  and  a 
separate  card  is  provided  for  each  different  type  of  information.  Coding 
forms  for  each  of  these  input  cards,  along  with  a detailed  description  of  the 
input  variables,  can  be  found  in  the  Users'  Guide.  The  following  paragraphs 
give  a more  general  description  of  the  inputs. 

All  cards  have  a card  name  field,  which  is  used  to  identify  the  card 
type.  Although  the  different  card  types  contain  different  information,  most  of 
them  conform  to  a standard  field  layout.  This  consists  of  the  card  name  field 
in  columns  1-10,  followed  by  two  ten-column  character  data  fields  and  ten  five- 
column  numeric  data  fields.  All  numeric  data  are  read  in  integer  format.  Varia- 
bles whose  values  can  take  on  non-integral  values  are  read  with  an  implied  deci- 
mal point.  These  values  are  converted  internally,  using  the  position  of  the  im- 
plied decimal  point  shown  on  the  coding  forms.  Character  data  are  left  justified 
and  numeric  data  are  right  justified. 


Cards  that  do  not  conform  to  the  standard  field  layout  (TASK,  RUB, 
RUDB),  must  be  preceded  by  a set  header  card.  This  card  identifies  the  type  of 
cards  that  are  to  follow.  Note  that  these  non-standard  cards  have  a blank  card 
name  field,  since  the  card  type  is  identified  by  the  header  card.  Each  set  is 
terminated  by  a SETEND  card. 

Some  input  cards  require  additional  continuation  cards.  Such  cards 
have  parameters  to  give  the  number  of  each  type  of  card  that  is  to  follow  it. 

The  formats  for  these  additional  cards  are  shown  on  the  same  coding  form  as  the 
header  card  so  that  they  may  be  easily  coded  in  the  proper  sequence.  Note  that 
these  continuation  cards  also  have  blank  card  name  fields,  since  the  card  type 
is  identified  by  the  header  card. 

In  general,  these  cards,  or  groups  of  cards,  can  be  coded  in  any  order. 
The  only  exception  to  this  is  the  course  and  the  processing  block  cards.  The 
processing  blocks  for  each  course  must  follow  the  course  card.  Also,  the  pro- 
cessing blocks  within  a course  must  start  with  the  graduation  block  and  proceed 


towards  matriculation.  This  is  because  the  position  of  each  processing  block  is 
given  as  an  offset  from  the  block  connected  to  it  on  the  right.  If  there  is  more 
than  one  block  to  the  right,  as  in  the  case  of  fan-outs,  the  first  one  encountered 
is  the  one  used  as  the  reference  position. 


The  input  deck  must  be  ended  with  an  end  card,  which  consists  of  the 
word  "END"  punched  in  the  first  field. 
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Section  1.4 

DESCRIPTION  01-  OUTPUTS 


Input  Card  LI sting 


This  Usting  shows  the  values  exactly  as  they  are  read  from  each  card 
Field  numbers  are  marked  across  the  to,,  of  the  page  for  reference  by  error  mes- 
sages. Ihese  Holds  correspond  to  five  card  columns.  Character  data  are  spread 
across  two  such  Helds,  and  would  he  referred  to  by  the  number  of  the  second  field 

Also,  card  sequence  numbers  are  printed  for  later  reference  by  error  messages. 

Tins  listing  is  always  printed. 


Formatted  Input  Tabl c s 


These  tables  duplicate  the  information  shown  by  the  input  card  listing, 

but  present  it  in  a conveniently  readable  form.  All  variables  are  identified  by’ 

column  titles,  and  the  meanings  of  integer  codes  arc  printed  rather  than  the  codes 

t.emsclves.  Also,  these  values  will  show  the  results  of  any  input  conversion  that 

-as  done.  Ihc  user  My  suppress  this  listing  by  use  of  the  input  routine  control 
card . 


Course  Block  Diagram 


uirs  pior  snow; 


. . , . ‘ U1C  courses  by  displaying  each  process! 

block  in  the  course  as  a rectangle,  with  the  flow  of  students  shown  by  connecting 

linos  from  one  processing  bioek  to  the  next.  Inside  each  rectangle,  the  block  nu„ 
ber,  block  name,  synchronize-eerrelnte  reference  (if  any),  and  task  names  are  show 
e course  name  is  plotted  above  each  graduation  block.  The  input  routine  control 
cai  specifics  if  this  plot  is  to  be  produced. 


I i 
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Section  1.5 

SUBPROGRAM  DESCRIPTIONS 


This  section  contains  the  descriptions  of  the  individual  subroutines 
that  comprise  phase  1 of  the  TRAM  program.  The  description  for  each  subprogram 
consists  of  a statement  of  the  purpose  of  the  routine,  the  calling  sequence,  a 
description  of  its  parameters,  the  method  used,  and  a list  of  the  subprograms 
required.  A high  level  flowchart,  which  shows  the  logical  decision  points  and 
the  processing  accomplished,  is  also  included  for  each  of  the  major  subprograms. 


££♦**♦***♦*********************  PH  A St  1 ********  **#♦***♦♦*>;<***♦******  ** 


CC*  * 
CC*  PHASfcl  MA  IN  PROGRAM  4 
CC*  * 
CC*  PURPOSE  * 
CC*  TO  PERFORM  THE  FOLLOWING  FUNCTIONS  * 
CC*  - KFAU  THE  TRAM  INPUT  CAROS  AND  PRINT  THL.T  * 
CC*  - CHECK  VALUES  FUR  VALIDITY  * 
CC*  - PRINT  FORMATTED  TABLLS  UF  THE  INPUTS  * 
CC*  - REPLACE  USER  ASSIGNED  NAMES  WITH  INTERNAL  ID  NUMBERS  * 
CC*  - PLOT  THE  COURSE  BLOCK  DIAGRAM  * 
CC*  - SORT  THE  INPUTS  AND  WRITE  THEM  TO  UNIT  10  FGR  PHASE  2 * 
CC*  •> 
CC*  REFERENCES  * 
CC*  SEE  TRAM  USERS  GUIDE  AND  TRAM  PROGRAMMERS  MANUAL  * 
CC*  * 
CC*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED  * 
CC*  READTB  * 
CC*  INPUT  * 
CC*  ITABLE  * 
CC*  NAM  El  ' * 
CC*  NAME2  * 
CC*  PR0CB1  * 
CC*  PR0CB2  * 
CC*  FIXABE  * 
CC*  SORT  * 
CC*  OUTPUT  * 
CC*  I PLOT  * 
CC*  * 


CC*  **************************  ******  ******  ****  ******  * **  *******  *********** 


8 


/ HAVE  \ 
ANY  ERRORS 
BEEN 

DETECTED 


X"  IS  \ 
PRINT 
SWITCH  ON 


^ IS  ^ 
PLOT 

SWITCH  ON 


STOP 


PHASE  1 MAIN  PROGRAM 


COMPLETE  CCTS  AND  PMT 
BLOCKS  FROM  INFORMATION 
IN  THE  ASSOCIATED  AIRBASE 
EVENT  (FIXABE) 


SORT  DATA  BLOCKS 
(SORT) 


OUTPUT  FILE  10  FOR 
TRAM  STEP  2 (OUTPUT) 


PHASE  1 


CONSTRUCT  TABLE  OF 
PROCESSING  BLOCK 
NAMES  AND  NUMCERS 
(PROCB1 ) 


READ  AND  STORE 
INITIALIZATION 
FILE  (READTBI 


REPLACE  PROCESSING 
BLOCK  REFERENCES 
WITH  INDEX  IN  TABLE 
IPROCB2) 


READ  AND  STORE 
THAM  CARD 
INPUTS  (INPUT) 


PRINT  FORMATTED 
TABLES  OF  THE 
INPUTS  (TBL) 


REPLACE  FUNCTION 
NAMES  WITH  THEIR 
INTEGER  CODES 
(ITABLE) 


ERROR  STOP 


PLOT  THE  COURSE 
BLOCK  DIAGRAM 
(IPLOT) 


I 


REPLACE  REFERENCES  TO 
DATA  BLOCK  NAMES  WITH 
INDEX  IN  TABLE  (NAME2) 


CONSTRUCT  TABLE  OF 
DATA  BLOCK  NAMES 
(NAME1) 


BLOCK.  DATA  BLOCKD 


CC******************^******^*  &LOCKD  **********»*****+*****1>*  + ^tt*iei 

CC* 

CC* 

CC* 

cc*  purpose: 

CC*  To  INITIALIZE  COMMON  AREAS  FOR  INPUT  ROUTINLS 

CC* 

C c ******** » * * * ***** ** * ** * ****•**■.,**  ******* « ***** * * * * * ** * * * * * * * + * * * * + + + 


I 


CC***^******************^*****  i>E  ADTB  ************.*********4Mm„* 

SUBROUTINE  RLADT8  * 

cc  * 

CO  PURPOSE  * 

CC*  TO  READ  THE  PHASE  1 INITIALIZATION  FILE  * 

CO 

cc*  calling  sequence  * 

CC*  CALL  REAOTb  * 


CC.*  description  of  parameters 

CC*  NONE 

CC* 

CC*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
CC*  NONE  ' 


CC  *********  *** %****##  **j^.***  ***** **** ****>;,,(. ****** 


* * * **  * * * * * * * * * * * * * * **  $ * 


■*  * 


SUBROUTINE  READTB 


CC ************  ♦*#*♦*****♦****♦♦  ] N PUT  ****  * ****  *♦  ****$****  *#**  * ******  * 

CC* 

* 

CC* 

SUBROUTINE  INPUT 

* 

CC* 

* 

CC* 

PURPOSE 

* 

CC* 

TO  READ  THE  INPUT  CARDS  AND  STORE  THEM 

* 

CC* 

V 

CC* 

CALLING  SEQUENCE 

* 

CC* 

CALL  INPUT  ( I ERROR  J 

* 

CC* 

<- 

CC* 

DESCRIPTION  OF  PARAMETERS 

* 

CC* 

OUTPUT 

* 

CC* 

I ERROR  - NUMBER  OF  ERRORS  FOUND 

CC * 

'r* 

CC* 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

* 

CC* 

READC 

J 

Y 

CC* 

LOOKUP 

* 

CC* 

PRINTC 

* 

CC* 

TEST 

* 

CC* 

RPT 

* 

CC* 

STORE 

< 

CC* 

SH1FTR 

* 

CC* 

ENDCOR 

•i 

CC* 

ADOREC 

* 

CC* 

TRNSFR 

* 

CC* 

* 

cc* **************************************************** ********** ******* 

f 1 


SUBROUTINE  INPUT 


SOURCE 


STORE  THE 

DATA 

(STORE) 


AIRCRAFT 

DELIVERY 


STORE  THE 

DATA 

(STORE) 


SUBROUTINE  INPUT  - CONTINUED 


PROCESSING 
CHOCK  CANO 


HEAD  f’RIN t,  and 
test  tile  task 

NAME  CARD  fHPTI 


/ IS  \ 
/ DEFAULT  N 
TRANSFER  SWITCH 
S.  ON>  ^ 


FILL  IN  THANSf  ED 
IN  THE  LAST  PROC 
CLOCK 


STORE  THE 
TASK  NAME 


^ WA-  \ 
TASK  DfllNitlON 
INCLUDE i>  ON 
Till  ‘.AML 
\ CADI)  ✓ 


CALCUL ATI  DATA 
BLOCK  SIZE  AND 
SET  THANSrEC 
OPTION.SWITCH 


STOMF  TH! 
TASK  DATA 
BLOCK  ISTUIK  I 


ADD  A HLCOHD  TO  THE 
INTI  HNAL  STOHAGE 
AREA  (ADDRECI 


r HAVE 
All  TASK 
NAMT  CARDS 
HI  ( N READ 


STORE  THE  TIXED 
LENGTH  PORTION 
OF  (TRNSFRI 


NO  TRANSFERS 


HEAD.  PRINT  AND 
TEST  THE  NEXT 
TRANSFER  CARO 
(HPT) 


^ BRANCH 

ON  T(l*FfS?[R 
V.  OPTION 


DEFAULT 

TRANSFERS 


STORE  IMF 
IHANSEIM 
DATA 


STORE  THE 

OErAULT 

INFORMATION 


SET  DEFAULT 
TRANSTER 
SWITCH  SO 
BLOCK  NUMBER 
WILE  Bf  FILLED 
IN  NEXT  TIME 


/ HAVE  \ 

all  ikansefrs 

v.  BE  FN  RE  AD 


SUBROUTINE  INPUT  - CONTINUED 


TASK 

CARD 


READ,  PRINT,  AND 
TEST  THE  TASK 
DATA  CARD(RPT) 


STORE  THE 
TASK  BLOCK 
(STORE) 


/ HAVE  \ 
ALL  TASKS 
BEEN  PROCESSED 


SUBROUTINE  INPUT  - CONTINUED 





cc *********  *************$****$*  E H I F T R ***********  ******************  ** 
CC*  * 
CC*  SUBROUT INL  SHIFT R * 
CC*  * 
CC*  PURPOSE.  * 
CC*  TO  REPACK  THE  ARRAY  OF  VALUES  READ  FROM  IN' PUT  CARDS  IN  ORDER  * 
CC*  TO  ELIMINATE  WASTED  STORAGE  OCCUPIED  BY  UNUSED  CHARACTER  * 
CC*  FIELDS  AT  THE  BEGINNING  OF  THE  LAID  * 
CC*  * 
CC*  CALLING  SEQUENCE  * 
CC*  CALL  SHIFTR  (IP,  NI,  Nil  * 
CC*  * 
CC*  DESCRIPTION  OF  PARAMETERS  * 
CC*  INPUT  * 
CC*  NI  - NUMBER  OF  CHARACTER  FIELDS  WHICH  ARE  USED  * 
CC*  Nk  ~ NUMBER  OF  UNUSED  CHARACTER  FIELDS  WHICH  FOLLOW  THE  * 
CC*  FIRST  NI  USED  FIELDS  * 
CC*  IN  PUT -OUf PUT  * 
CC*  IP  - ARRAY  OF  PARAMETERS  READ  FROM  A LATA  CARD  BY  * 
CC*  SUBROUTINE  REAUC  * 

cc*  * 

CC*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED  * 
CC*  NONE  * 
CC*  * 
££*¥*************.***********  ***********♦**************************:  ****** 
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l 


(X  **************  *************  **  LNDCGR  ******************************* 
(X*  * 
CC*  SUbROUTINE  LNDCOR  * 
CC*  * 
CC*  PURPOSE  * 
CC*  TO  SET  THL  PROCESSING  BLOCK  POINTERS  IN  THE  TRAINING  COURSE  * 
CC*  BLOCK,  AFTER  ALL  PROCESSING  BLOCKS  FOR  THE  COURSE  HAVE  BEEN  * 
CC*  READ  * 
CC*  * 
CC*  CALLING  SEQUENCE  * 
CC*  CALL  ENCOK  (lfcRR)  * 
CC*  * 
CC*  DESCRIPTION  OF  PARAMETERS  * 
CC  * OUTPUT  * 
CC*  I ERR  - ERROR  FLAG,  SET  WHlN  COURSE  CONTAINS  NO  PROCESSING  * 
CC*  BLOCKS  * 
CC*  * 
CC*  SUbROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED  * 
CC*  NONE  * 
CC*  * 
££  * ****  **  **  ********  **  *******  ****************  * *******************  ******** 
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( 

\ 


SUBROUTINE  ENDCOR 


. 


qq* ********************** ******  RE  ADC  ******************************** 

CC*  * 
CC*  SUBROUTINE  READC  * 

CC*  * 
CC*  PURPOSE  * 
CC*  TO  READ  AN  INPUT  CARD  * 
CC*  * 
CC*  calling  sequence  * 
CC*  CALL  READC  ( 1CARD,I PARKS ) * 
CC*  * 
CC*  DESCRIPTION  OF  PARAMETERS  * 
CC*  INPUT  * 
CC*  I CARD  - CARD  ID  NUMBER  OF  CARD  TO  BE  READ,  OR  * 
CC*  ZERO  TO  R-AU  AN  UNKNGWN  CARD  IN  STANDARD  FORMAT  * 
CC*  OUTPUT  * 
CC*  IPARMS-  ARRAY  OF  UP  TO  13  VALUES  READ  FROM  THE  CARD  * 

CC*  * 
CC*  REMARKS  * 
CC*  THIS  SUBROUTINE  DETERMINES  THE  NUMBER  OF  PARAMETERS  TO  BE  * 
CC*  READ,  AND  THEIR  FORMAT  FROM  COMMON  /DDIN/  * 

CC*  * 
CC*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED  * 
CC*  NONE  * 
CC*  * 

QC*  *******************************************************  ************** 


cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


************************3.^  PR1NTC  ***************** 

SUBROUTINE:  PRINTC 

PURPOSE 

TO  PRINT  THE  INPUT  CARD  LISTING 
CALLING  SEQUENCE 

CALL  PRINTC  ( I C ARD  , IS  EQ  , I FARMS  J 

DESCRIPTION  OF  PARAMETERS 
INPUTS 

lLARD  - LARD  NUMBER  OF  THE  LARD  TO  BE  PRINTED. 

ZERO  If  NOT  KNOWN 
ISEQ  ~ CARD  SEQUENCE  NUMBER 

I PAR MS  - ARRAY  OF  VALUES  THAT  WERE  READ  FROM  THE 
CARD 


********#*.,;.*** 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


CC* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


R FM ARKS 

1TH1S  SUBROUTINE  USES  COMMON 
OF  DATA  FIELDS  ON  THE  CARD, 


DATA. 

2 OUTPUT 
OF  EACH 

SUB  ROUTINE 
NONE 


LINES 

PAGE 


* 

/ODIN/  TO  DETERMINE  THE  NUMBER  * 
AND  HOW  MANY  OF  THEM  ARE  CHARACTER* 

ARE  COUNTLD,  AND  TITLES  ARE  PRINTED  AT  THE  TOP 


AND  FUNCTION  SUBPROGRAMS  REQUIRED 


TtST  ********** 


PURPOSE 

TO  TEST  ALL  NUMERIC  INPUT  VALUES 
THE  RANGE  OF  ACCEPT ABLE  VALUES 


CALLING  SEQUENCE 

CALL  TEST  UCARDt 


I ARRAY  f IERR  ) 


CC ************************ ***** 

CC* 

CC*  SUBROUTINE  TL  ST 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


TU  SLE  IF  THEY  ARE  WITHIN 


DESCRIPTION  OF  PARAMETERS 
INPUT 

1 CARD  - CARD  NUMBER  FROM  WHICH  ThE  VALULS  WERE  READ 
1 ARRAY-  ARRAY  OF  VALUES  THAT  WERE  READ  FROM  THE 
CARD 

OUTPUT 

I ERR  - NUMBER  OF  ERRORS  DETECT  EL> 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIP t U 
NONE 


********  *************** 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


CC  *******  ***********  ************************  **********  *****> ;,************ 
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... 


cc*’ 

***********************  *****  STORE  ******************************** 

cc* 

* 

• 

cc* 

SUBROUTINE  S10RE 

* 

cc* 

* 

cc* 

PURPOSE 

* 

cc* 

TO  STORE 

A BLOCK  OF  INPUT  DATA 

* 

cc* 

* 

cc* 

CALLING  SECUENCE 

* 

cc* 

CALL  STORt  ( lbLK»  NWDS,  1 SEQ , IP,  IAODR) 

* 

cc* 

* 

cc* 

DESCRIPTION 

OF  PARAMETERS 

* 

cc* 

. INPUT 

* 

cc* 

IbLK  - 

BLOCK  NUMBER 

* 

cc* 

NWDS  - 

NUMBER  OF  WORDS  IN  THE  DATA  BLOCK 

* 

cc* 

1 SEQ  - 

CARD  SEQUENCE  NUMBER  TO  BE  ASSOCIATED  WITH  THIS 

BLOCK* 

cc* 

IP 

ARRAY  OF  DATA  WORDS  TO  BE  STORED 

* 

cc* 

OUTPUT 

* 

cc* 

IADDR  - 

POINTER  TO  LOCATION  IN  COMMON  /IF1LE/  WHERE  THE 

DATA 

* 

cc* 

WAS  STORED  (IF  LESS  THAN  1,  NOT  ENOUGH  SPACE  WaS 

* 

cc* 

AVAILABLE  IN  / 1 F I L E/  ) 

* 

cc* 

* 

cc* 

SUBROUTINE  ANu  FUNCTION  SUBPROGRAMS  REQUIRED 

* 

cc* 

ADCREC 

* 

cc* 

TRNSFR 

* 

cc* 

* 

cc ******************************************  **************************** 

I 


t 

f 


I 

mi  t 
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LJ 


■-- ----■  - ---■•<■- 


cc  *****  *****************  *******  Rp  T ***#*#**£***>[<**.;,),$ 

cc*  * 

CC*  SUBROUT  IME  RPT  * 

cc*  * 

CC*  PURPOSE  * 

CC*  TO  READ  AN  INPUT  CARD,  PRINT  IT,  AND  TEST  THE  NUMERIC  FIELDS  * 

CC*  FOR  VALIDITY  * 

CC*  * 

CC*  CALLING  SEQUENCE  * 

CC*  CALL  RP1  ( ICARDt  ISEQ,  IP,  IERRJ  * 

CC*  * 

CC*  DESCRIPTION  OF  PARAMETERS  * 

CC*  INPUT  * 

CC*  ICARD  - CARD  TYPE  TO  EE  READ  * 

CC*  INPUT-OUTPUT  * 

CC*  ISEQ  - CARD  SEQUENCE  NUMBER,  INCREMENTED  BY  EACH  CALL  * 

CC*  OUTPUT  * 

CC*  IP  - ARRAY  OF  VALUES  READ  FROM  THE  CARD  * 

CC*  I ERR  - NUMBER  OF  ERRORS  DETECTED  * 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
RE  ADC 
PRINTC 
TEST 


* 

CC  *******  *********  *************#**:*  **  + ♦>(!*+*:«£***##******$**:(,**  + *$*****$£$ 


cc Aocm-c  

SUBROUTINE  ADDREC  * 


cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


PURPOSE 

TO  ADD  A RECORD  TO  A FILE  IN  CCMMDN  ARLA  /IFILF/ 

CALLING  SEOUL  NICE 

CALL  ADDRLC  (lNUEXt  NWDSt  IADDR) 

DESCRIPTION  OF  PARAMETERS 
INPUT 

INDEX  - INDEX  NUMBER  OF  THE  FILE  TO  WHICH  THE  RECORD  IS  TO 
A t J h u 

NWDS  - NUMBER  OF  WORDS  IN  THE  RECORD 
OUTPUT 

IADDR  - ADDRESS  OF  THE  DATA  AREA  OF  THL  NEW  RECORD 

OCCURS^ 1PT  ^ 1HRt  ARRAYl  SET  70  ZtR0  IF  tRROR 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
NONE 


* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 
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ADDFICC 


IS  "X 
FILE  NUMBER 
WITHIN 
RANGE?  ^ 


PRINT 

ERROR 

MESSAGE 


THERE  ^ 
ENOUGH 
STORAGE 
AVAILABLE  ? 


SET  RECORD 
ADDRESS  TO 
ZERO 


RETURN 


'S\ 

THIS  THE  ^ 
FIRST  RECORD 
IN  THE  FILE? 


SET  NUMBER  OF 
RECORDS  IN  THE 
FILE  TO  ONE 


INCREMENT  THE 
NUMBER  OF 
RECORDS  IN 
THIS  FILE 


SE1  ST  AH  I AND  END 
POINTERS  TO  THE 
NEW  RECORD 


SET  END  POINTER 
FOR  THIS  FILE  TO 
THE  NEW  RECORD 


I 


SET  THE  FORWARD 
POINTER  IN  THE  LAST 
RECORD  TO  THE  NEW 
RECORD 


SET  THE  BACKWARD 
POINTER  IN  THE  NEW 
RECORD  TO  THE  LAST 
RECORD 


SET  THE  FORWARD 
POINTER  IN  THE  NEW 
RECORD  TO  ZERO 


SUBROUTINE  ADDREC 


1 
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I 

Ck# *********************** *****  GL  TREC  *** **************************** 

CC*  * 

CC*  SUBROUTINE  GETRLC  * 

CC*  * 

CC*  PURPOSE  * 

CC*  TO  LOCATE  THE  NEXT  SEQUENTIAL  RECORD  IN  A FILE  * 

CC*  * 

CC*  CALLING  SEQUENCE  * 

CC*  CALL  GETREC  ( INDEX ♦ I REC»  NWDS* I AODR * 1 EOF  J * 

CC*  51 

CC*  DESCRIPTION  OF  PARAMETERS  * 

CC*  INPUT  ' * 

CC*  INDEX  - FILE  INDEX  NUMBER  FOR  INITIALIZATION  CALL  * 

CC*  OR  * 

CC*  ZERO  TO  LOCATE  THE  NEXT  RECORD  IN  THE  FILt  SPECIFIED  * 

CC*  IN  THE  LAST  INITIALIZATION  CALL  * 

CC*  OUTPUT  * 

CC*  IRfcC  - RECORD  NUMBER  * 

CC*  NWDS  - NUMBER  OF  WORDS  IN  THE  RECORD  * 

CC*  IADDR  - ADDRESS  (SUBSCRIPT  IN  IPILE  ARRAY)  OF  DATA  * 

CC*  SEOF  - END  OF  FILE  FLAG  * 

CC*  ' * 

CC*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED  * 

CC*  NONE  * 

CC*  * 

£f****;**^  ##*♦*****  **********  JM**************  *****  *********************** 
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cc***n***t+****+*******+*„M  trnsfr  **********„„„„„„„ 

LL  ♦ 

CC*  SUBROUTINE  TRNSFR  * 

CC*  * 

cc*  Purpose  * 

CC*  IRaNSFER  AN  ARRAY  FROM  ONE  LOCATION  Tu  ANOTHER  * 

CC*  * 

CC*  CALLING  SEQUENCE  * 

CC*  CALL  TRNSFR  (11,  12,  NWDS) 

CC*  * 

CC*  DESCRIPTION  OF  PARAMETERS  * 

CC*  II  - ARRAY  TO  BE  MOVED  7 

CC*  12  - ARRAY  TO  WHICH  II  IS  TO  Lit  MOVED  * 

CC*  NWDS  - NUMBER  OF  ELEMENTS  TU  LE  MOVED  * 

CC*  * 

CC*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED  1 

CC*  NONE  * 

CC*  * 

CC*  ****  ********  ******  *<:****♦«  5} *************>>;  V****),!:^**.!;!^***^*^ 


CC  * *.*****  **  ********************  TBL  ************************  ********** 


cc* 

cc* 

SUBROUTINE  TbL 

* 

* 

cc* 

cc* 

PURPOSE 

* 

* 

cc* 

TO  PRINT  THE  FORMATTED  TABLES  OF 

THE  INPUTS  * 

cc* 

cc* 

CALLING  SEQUENCE 

* 

* 

cc* 

CALL  TbL 

* 

cc* 

cc* 

DESCRIPTION  OF  PARAMETERS 

* 

* 

cc* 

NONE 

* 

cc* 

cc* 

METHOD 

♦ 

* 

cc* 

THIS  SUBROUTINE  CALLS  A SEPARATE 

SUBROUTINE:  TO  PRINT  EACH  OF  * 

cc* 

THE  DATA  TABLES 

* 

cc* 

cc* 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS 

* 

REQUIRED  * 

cc* 

TBL2 

* 

cc* 

TbL3 

* 

cc* 

TBL4 

* 

cc* 

TBL5 

* 

cc* 

TBL6 

* 

cc* 

TBL7 

* 

cc* 

T BL8 

* 

cc* 

TEL9 

* 

cc* 

TBL1C 

* 

cc* 

TBL12 

* 

TbLi.3 

* 

cc* 

TBL14 

* 

cc* 

cc* 

* 

*******  * *************************************  ************************ 

r 


CC* ********************* *******  TBL2 
CC* 


CC*  SUBROUTINE  TBL2 

CC* 

CC*  PURPOSE 

CC*  TO  PRINT  THE  TABLE  OF  AIRBASE  INVENTORIES 

CC* 


********************  ************.* 

* 


* 

* 

* 

♦ 

* 


CC  ********************************************************  *******](l  ****** 


CC*****************************  TB  L3  ********************************* 
CC*  * 

CC*  SUBROUTINE  TBL3  * 

CC* 

CC*  PURPOSE  * 

CC*  TO  PRINT  ThE  TABLE  OF  THE  RESOURCE  INVENTORIES  * 

CC*  m 

CC*  ********************************************* ************************ 


CC **************** *************  TBL4 
CC* 


******  *************  ************;>* 

* 


CC*  SUBROUTINE  TBLA 

CC* 

CC*  PURPOSE 

CC*  TO  PRINT  THE  TABLE  OF  THE  SOURCE  CARDS 

CC* 


* 

* 

* 

* 

* 


cc ******************************************************** ************** 


********************************* 


CC*^^** **************** ********  TB  L5 
CC* 

CC*  SUBROUTINE  TBLB 

CC* 

CC*  PURPOSE 

CC*  TO  PRINT  THE  TABLE  OF  AIRCRAFT  DELIVERY  INPUTS 

CC* 

CC* *************************************************************** ****** 


* 

* 

* 

* 

* 

* 


' I 


I 


f 


I 


I 

I 

I 

I 

] 

I 


CC * < .<*******;,' .tk*****************  TBL6  ********************************* 


CC*  ♦ 
CC*  SUBROUTINE  7bL6  * 
CC*  * 
CC*  PURPO  S L * 
CC*  TO  PRINT  THE  TABLE  OF  COURSE  BLOCKS  * 
CC*  * 


cc*  ******  **********************  ***********************  **♦***.-************ 


C C *************************** **  TBL7  ********************************* 
CC*  # 

CC*  SUBROUTINE  TBL7  * 

CC*  * 

CC*  PURPOSE  * 

CC*  TO  PRINT  THE  TABLE  OF  THE  PROCESSING  BLOCKS  * 

c c*  ^ 

CC***  ************  ***********  *********************************£*£***£££££ 


L 


II 

li 

D 


CC*** **************************  TBL8  ********************************* 


CC*  * 
CC*  SUBROUTINE  TBLB  * 
CC*  * 
CC*  PURPOSE  * 
CC*  TO  PRINT  THE  TABLE  OF  TASK  BLOCKS  * 
CC*  * 


cc* ********************************************************** *********** 


CC* ****************** **********  TBL9  ********************************* 
CC*  * 
CC*  SUBROUTINE  TBL9  * 
CC*  * 
CC*  PURPOSE  * 
CC*  TO  PRINT  THE  TABLE  OF  RESOURCE  UTILIZATION  BLOCKS  * 
CC*  * 

cc******** ********************************************  ****************** 


1 

I 


I 


1 

\ 

J 


1 

f 
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SUBROUTINE  TBLIO 


CC******* **********************  TBLIO 
CC* 

cc* 
cc* 

CC*  PUR^SpRINT  the  table  of  resource  utilization  description  blocks  * 

III********************************************************************* 


SUBROUTINE  T6L12 


CC****** ********* **************  IB  LI  2 
CC* 

cc* 
cc* 

CC*  PURPOSE 

CC*  TO  PRINT  THE  TABLE  OF  AIRBASE  EVENT  CARDS 

lilt,***********************************************''******************" 


* * **** ■* **  ************  * ********* * 

* 

* 
* 
* 
* 
* 


CC**************************’*’**  TBL13  ******************************** 

CC*  * 

CC*  SUBROUTINE  TBL13  * 

CC*  * 

CC*  PURPOSE  * 

CC*  TO  PRINT  THE  TABLE  OF  CCTS  CARDS  * 

CC*  * 

CC  *i**.r+**¥**  *******  ***************  *********************  ***V*  ******** 


££***************************♦♦  TBL14 
CC* 

CC*  SUBROUTINE  TBL14 

CC* 

CC*  PURPOSE 

CC*  TO  PRINT  THE  TABLE  OF  PMT  CARDS 

CC* 

qq* ****************************** **************************  ************* 


******************************** 

* 

* 
* 
* 
* 
* 


mmnmrn 


CC ********  ** ** ****** *** ****** **  PTYPE  *********  if  ****************)!'***** 
CC*  * 
CC*  SUBROUTINE  PIYPE  * 
CC*  * 
CC*  PURPOSE  * 
CC*  TO  DECODE  THE  PERSONNEL  TYPE  CODE  AND  RETURN  A CHARACTER  * 
CC*  ARRAY  OF  THE  TYPES  SPECIFIED  BY  THE  CODE.  THE  PERSONNEL  * 
CC*  TYPE  CODE  ISA4*  BIT  INTEGER  NUMBER,  WITH  EACH  bl  T USED  * 
CC*  TO  INDICATE  A PERSONNEL  TYPE  AS  FOLLOWS  (GOING  FROM  * 
CC*  LEFT  TO  RIGHT  ) * 
CC*  1 PILOTS  * 
CC*  2 COPILOTS  * 
CC*  3 OSO  * 
CC*  4 DSO  * 


CC*  CALLING  SEQUENCE  * 
CC*  CALL  PTYPE  (1CODE,  I ARRAY)  * 
CC*  * 
CC*  DESCRIPTION  OF  PARAMETERS  * 
CC*  INPUT  * 
CC*  ICODE  - PERSONNEL  TYPE  CODE  * 
CC*  OUTPUT  * 
CC*  I ARRAY  - ARRAY  OF  PERSONNEL  TYPE  NAMES  SPECIFIED  BY  ICODE  * 
CC*  * 
CC *************************************************************** ******* 


(X**  ********************  *******  IT  able  ***************** ************** 

CC*  * 
CC*  SUBROUTINE  ITABLE  * 
CC*  * 
CC*  PURPOSE  * 
CC*  TO  REPLACE  CHARACTER  INPUT  PARAMETERS  WITH  ITS  INTEGER  CODE.  * 
CC*  ERROR  MESSAGLS  ARE  PRINTlD  FOR  VALUES  NOT  FOUND  IN  THE  TABLES.* 
CC*  * 
CC*  CALLING  SEQUENCE  * 
CC*  CALL  I TABLE  ( 1 ERR)  * 
CC*  * 
CC*  DESCRIPTION  OF  PARAMETERS  * 
CC*  OUTPUT  * 
CC*  I ERR  - NUMBER  OF  ERRORS  ENCOUNTERED  * 
CC*  * 
CC*  METHOD  * 
CC*  THIS  SUBROUTINE  USES  COMMON  /DUD/  TO  LOCATE  THESE  PARAMETERS  * 
CC*  AND  TO  FIND  OUT  WHICH  TABLE  THEY  ARE  TO  BE  LOOKED  UP  IN  * 
CC*  * 
CC*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED  * 
CC*  REPLCI  * 
CC*  * 
CC ***************************************************** ******** ********* 
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*1 


IfAULE 


INITIALISE  LOOP 
FOR  ALL  DATA 
BLOCK  TYPES 


LOCATE  BLOCK 
DESCRIPTION 
FOR  THE  NEXT 
BLOCK  TYPE 


INITIALIZE  LOOP 
THRU  THE  BLOCK 
DESCRIPTION  FOR 
THIS  BLOCK  TYPE 


GET  THE  NEXT 
DESCRIPTOR 
CODE  FOR  THIS 
BLOCK 


/ HAS  \ 
LAST  CODE 
BEEN  CHECKED 

V ? y 


/ HAS  \ 
LAST  BLOCK  TYPE 
BEEN  PROCESSED 

V ? / 


RETURN 


COMPUTE  OFFSET 
WITHIN  THE  DATA 
BLOCK 


TABLE  \ YES 
LOOKUP  > N 

REPLACE  THE  NAME 
WITH  ITS  INDEX 
FOR  ALL  BLOCKS 
OF  THIS  TYPE 
(HEPLC1) 

REQUIRED  / 

1 

SUBROUTINE  ITABLE 
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CC********** <*********** *******  NAMtl  **♦*♦****•- I********************** 


CC* 

* 

CC* 

SUBROUTINE  NAME  1 

* 

cc* 

* 

cc* 

PURPOSE 

* 

cc* 

TO  HAKE 

A TABLE  OF  THE  NAMES  OF  ALL  NAMED  DATA  BLOCKS,  AND  TO 

* 

cc* 

REPLACE 

the  character  name  in  the  data  block  with  the  index 

* 

cc* 

OF  Ttlt 

NAME  IN  THE  TABLE 

* 

cc* 

* 

cc* 

CALLING  SEQUENCr 

* 

cc* 

CALL  NAMlI  ( IP , 1NUM , 1 TBL,  NT ) L * 1 ERR  ) 

* 

cc* 

* 

cc* 

DESCRIPTION  OF  PARAMETERS 

* 

cc* 

INPUT-OUT  PUT 

* 

cc* 

NT  EL 

- NUMBER  OF  ELEMENTS  IN  1 TBL  ARRAY  (GIVES  NUMBER  CF 

* 

cc* 

ELEMENTS  AVAILABLE  AT  ENTRY,  AND  NUMBER  OF  ELEMENTS 

* 

cc* 

USED  AT  EXIT) 

* 

cc* 

OUTPUT 

* 

cc* 

IP 

- POINTER  TO  START  OF  NAME  TABLE  FGk  EACH  DATA  BLOCK 

* 

cc* 

1 i\UM 

- NUKBLK  OF  ENTRIES  IN  NAME  TABLE  FOR  EACH  DATA  BLOCK 

* 

cc* 

I TEL 

- NAME  TABLES  (CONTAINS  ORIGINAL  CHARACTER  NAMES) 

* 

cc* 

1EKR 

— NOME  LR  OF  ERRORS  ENCOUNTERED 

* 

cc* 

* 

cc* 

METHOD 

* 

cc* 

7 H IS  SUBROUTINE  USES  COMMON  /Ob 0/  TO  DETERMINE  WHICH  DATA 

* 

cc* 

BLOCKS 

ARE  NAMED,  AND  TO  LOCATE  THE  POSITION  OF  THE  NAME 

* 

cc* 

WITHIN 

THE  BLOCK 

* 

cc* 

* 

cc* 

subroutine 

AND  FUNCTION  SUBPROGRAMS  REQUIRED 

* 

cc* 

6ETREC 

* 

cc* 

LOOKUP 

* 

cc* 

* 

CC*  ********************  *****  *******  ************************************* 


INITIALIZE  LOOP 
ron  ALL  THE 
DATA  r.LOCKS 
0F  THIS  TYPE 


INITIALIZE  LOOP 
FOH  ALL  DATA 


LOCATE  THE 
NEXT  DATA 
BLOCK  (GETRECI 


LOCATE  BLOCK 
DESCRIPTION 
ron  THE  NEXT 
BLOCK  TYPE 


INITIALIZE  LOOP 
THRU  THE  BLOCK 
DESCRIPTION 


GET  THE  NEXT 
DESCRIPTOR 


THIS  CLEMENT 
DEFINE  THE 
DATA  BLOCK 


ADD  THE  NAME 
TO  THE  NAME 
TABLE 


REPLACE  THE 
NAML  WITH 
ITS  INDEX  IN 
THE  TABLE 


REPLACE  THE 
NAME  WITH 
ITS  INDEX 
IN  THE  TABLE 


THIS  THE 
LAST  BLOCK 


RETURN 


SUBROUTINE  NAME1 


BLOCK  TYPES 

ir 

— 

, K 

* r 

- 

/ NAME  BE 

/ THE  NAME 

UNIQUE  Ff  ^ 

-k/  ALREADY  IN 

V.  ' THIS  BLOC 

r\  The  name 

N. 

^S^TABLE'^' 

YES 

nr 

y/  IS  „„ 

z'  THIS  NAME^v. 

ALREADY  IN  ">  {> 

, PRINT  ERROR 

\THt  TABLITy^ 

MESSAGE 

CC* 

cc* 

CC* 

cc* 
cc * 
cc* 
cc* 


***«&**$  $ V ******  * * ‘ * ****  * **  NAME  2 


♦ ********  * **  ****  **  t * 


SUBROUTINE  NAMC2 


PURPOSE 

TO  REPLACE  ALL  BLOCK  NAME  REFERENCES  WITH  THEIR  INTEGER  COOES 


CC*  CALLING  SEQUENCt 

CC*  CALL  NAME 2 ( IP , INUM  ,I1BL, IERR } 

CC* 


CC*  DESCRIPTION  OF  PARAMETERS 
CC*  INPUT 


cc* 

IP 

- ARRAY  OF  POINTERS  TO  FIRST  ELEMENT  OF  NAME  TAbLE 

cc* 

FOR  LACH  DmTA  BLOCK 

cc* 

1 RUM 

- ARRhY  GIVING  NUMBER  OF  ENTRIES  IN  NAME  TABLE  FC'P 

cc* 

EACH  DATA  BLOCK 

cc* 

ITBL 

- NAME  TAbLE 

cc* 

OUTPUT 

cc* 

1 ERR 

~ NUMBER  OF  ERRORS  DETECTED 

CC* 


** 

* 

* 

* 

* 

* 

* 

* 

* 

if 

* 

if 

if 

* 

* 

* 

* 

* 


CC* 

CC* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

Cc* 

cc* 

cc** 


METHOD 

THIS  SUBROUTINE  USES  COMMON  /DBD/  TO  LOCATE  BLOCK  NAME 
REFERENCES  IN  THE  FIXED  PORTION  OF  DATA  BLOCKS.  THE  POS1TIG 
OF  NAME  REFERENCES  IN  VARIABLE  LENGTH  PORTION  OF  LATA  BLOCKS 
IS  HARD  CODED  (THIS  OCCURS  IN  PMGCB LOCK  AND  RUB) 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
REPLC1 

Kth-LC/i 
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*•»#*•**•*##•* 


NAME  2 


INITIALIZE  LOOP  FOR 
ALL  DATA  BLOCK 
TYPES 


LOCATE  BLOCK 
DESCRIPTION 
FOR  THE  NEXT 
BLOCK  TYPE 


INITIALIZE  LOOP 
THRU  THE  BLOCK 
DESCRIPTION 


GET  THE  NEXT 

DESCRIPTOR 

CODE 


REPLACE  THE  NAME 
WITH  ITS  INDEX,  FOR 
ALL  BLOCKS  OF  THIS 
TYPE  IREPLC1) 


REFERENCE  TO 
A DATA  BLOCK 
V NAME? 


THIS  THE 
LAST  CODE 


REPLACE  TASK 
REFERENCES  IN 
PROC  BLOCKS 
(REPLC2) 


THIS  THE 
LAST  DATA 
BLOCK  TYPE? 


REPLACE  RUDB 
REFERENCES  IN 
RUB’S  (REPLC2I 


RETURN 


SUBROUTINE  NAME2 


RE  PL Cl 


C C * * ***************  * **  * * ** * * 4 * + 

CC* 

SUBROUTINE 


CC* 
CL* 
CC* 
CC* 
CC* 
CC* 
CC* 
CC* 
CC* 
CC* 
CC* 
CC  * 
CC* 
CC* 
CC* 
CC* 
CC* 
CC* 
CC* 
CC* 
CC* 
CC* 
CC* 
CC* 
CC* 
CC* 
CC* 
CC* 


PURPOSE 

To  REPLACE  A BLOCK  NAME 
ALL  DATA  BLOCKS  OF  A GIVEN  TYPE 
KEFtRENCtS  IN  THE  FIXED  PORTION 


CALLING 

CALL 


SEQUENCE 
REPLC1  (IBLK, 


description 

INPUT 
ILLK  - 
I OFF  - 
l'f  CL  - 
NlbL  - 
INDOFF- 


IOr'F»  1T5Lr  NTBL,  IN  DOFF,  ICCDL,  IERR) 


uf  paramet e rs 


table  in  order 

1C ODE  - 1 IF  THE  NAMES 

2 IF  THE  NAMES 

3 if  character 


output 

1 LRR 


NUMBER  OF  ERRORS  detected 


SUBgetrecE  AND  FUNCT1QN  subprograms  required 
lookup 


**************,*^^^v^^^ 

RL'PLCl  * 

* 

* 

reference  with  its  integer  code  in  * 
this  routine  is  only  for 
of  variable  length  data  blocks* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


DATA  block  number 

OFFSET  OF  REFERENCE  IN  THE  DATA  BLOCK 
Name  TAELE  bLULK‘ 

NUMBER  OF  ELEMENTS  IN  1TBL 
OFFSET  TO  BE  ADDED  TO  THE  INDEX 


OF  A NAME 
CODE 


TO  GET  ITS  INTEGER 
ARE  INTLGER  DATA 
ARE  CHARACTER  DATA 
DATA  AND  BLANKS  ARE  ALLOWED 


IN  THE 
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'•  . — ■ — 


END  OF 
FILE? 


THIS  NAME 
ALWAYS  BE 
PRESENT? 


THE  NAME 
FIELD  BLANK? 


IT  IN  THE 
TA8LE? 


REPLC1 


RETURN 


SUBROUTINE  REPLC1 
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REPLACE  THE  NAME 
REFERENCE  WITH 
ITS  INDEX  IN  THE 
TABLE 


LOOK  UP  THE  NAME 
REFERENCE  IN  THE 
TABLE  (LOOKUP) 


RETRIEVE  THE  NEXT 
BLOCK  OF  THE  SPECI- 
FIED TYPE  (GETREC) 


REPLACE  THE  NAME 
REFERENCE  WITH 
ZERO 


PRINT  AN 

ERROR 

MESSAGE 


REPLC2 


RLPLC2 

PURPOSE 

TO  REPLACE  A BLOCK  NAME  REFERENCE  WITH  IIS  INTEGER  CODE  IN 
ALL  DATA  BLOCKS  OF  A GIVEN  TYPE.  THIS  ROUTINE  IS  ONLY  FOR 
REFERENCES  IN  'I  HE  VARIABLE  PORTION  OF  VARIABLE  LENGTH  DATA 
BLOCKS 


CALLING 

CALL 


SEQUENCE 

KE-PLC*  UBLK,  I OF  F 1 1 1 DX  » N DX  t N t ICJFF2  *ITBL*  NTBL*  1 NDOFF. 
ICQDE,  1 ERR ) 


CC*****  **  ******  *********  ** ***** 

cc* 

CC*  SUBROUTINE 

cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 


RESCRIPT  ION 
INPUT 
IbLK  - 
iOFFl  - 

10X1  - 


NDX 

N 


OF  PARAMETERS 

DATA  BLOCK  NUMBER 
OFFSET  WITHIN  THE 
NUMBER  OF  ENTKlf  S 
ARRAY  WHICH  GIVES 
OF  EACH  VARIABLE 


***** £************************$* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


DATA  BLOCK  TO  THE  WORDS 
IN  EACH  VARIABLE  LENGTH 
THE  NUMB  L R OF  WORDS  IN 
LENGTH  ITEM 


GIVING  THE 
ITEM 

EACH  ENTRY 


ITEMS 

WHICH 


number  of  variable  length 

THE  NUMBER  OF  THE  ITEM  IN 
TO  BE  DONE 

1 OFF 2 - THE  OFFSET  WITHIN  THE  ITEM  OF 
THE  REFERENCES  '10  EE  REPLACED 
NAME  1 ABLE 

NUMBER  OF  NAMES  IN  IT6L 
OFFSET  TO  BE  ADDED  TO  A NAMES 
TO  GET  ITS  INTEGER  CODE 
ICODE  - 2 IF  NAMES  ARE  CHARACTER  DATA 
I IF  NAMES  ARE  INTEGER  DATA 

OUTPUT 
. I ERR 


IN  THE  DATA  BLOCK 
THE  REPLACEMENT  IS 


I TBL 
NT  EL 
INDOFF- 


THE  WORD  CONTAINING 


INDEX  IN  THE  NAME  TABLE 


SUBR0U1I NE 
GETREC 
LOOKUP 


- NUMBER  UF  ERRORS  DETECTED 
AND  FUNCTION  SUBPROGRAMS  REQUIRED 


1 

CC  ******************************.*****»***)(<*. *******************  ^jjc*******,! 
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***#  *<■•)**■***■#■*#.* 


CC*****************************  PR0CB1  ******************************* 


CC* 

*« 

*r 

CC* 

SUBROUTINE  PROCB1 

* 

CC* 

* 

CC* 

PURPOSE 

* 

CC* 

TO  CONSTRUCT  A TABLE  OF  PROCESSING  BLOCK  NAMLS  AND  NUMBERS 

* 

CC* 

ASSIGNED 

BY  THE  USER 

* 

CC* 

* 

CC* 

CALLING  SEQUENCE 

* 

CC* 

CALL  PRuCBl  ( IP  1 , INUM,  NAME,  NUMBER , TERR) 

* 

CC* 

* 

CC* 

Df SCRIPT  I ON 

OF  PARAMETERS 

* 

CC* 

OUTPUT 

* 

CC* 

I PI 

POINTER  TO  START  OF  NAME  AND  NUMBER  TABLES  FOR  EACH 

* 

CC* 

COURSE 

* 

CC* 

I NUM  - 

NUMBER  OF  ENTRIES  IN  NAME  AND  NUMBER  TABLES  FOR 

* 

CC* 

EACH  COURSE 

* 

CC* 

NAME  - 

TABLE  OF  NAMES  FOR  EACH  PROCESSING  BLOCK 

* 

CC* 

NUMBER- 

TABLE  OF  USER  ASSIGNED  NUMBERS  FOR  EALH  PROCESSING 

* 

CC* 

BLOCK 

* 

CC* 

TERR  - 

NUMBER  OF  ERRORS  DETECTED 

* 

CC* 

* 

CC* 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

* 

CC* 

GETREC 

* 

CC* 

LOOKUP 

* 

CC* 

* 

CC  *************  * ***  **********  ****************  **  *****  **  * ****  ***  **  **  ****** 
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CONSTRUCT  A TABLE 
OF  THE  FIRST  AND 
LAST  PROC  BLOCK 
IN  EACH  COURSE 


SET  COURSE 
INOEX  TO 
ONE 


INITIALIZE  LOOP  FOR 
ALL  PROCESSING 
BLOCKS 


GET  THE  NEXT 
PROCESSING 
BLOCK  (GET RFC) 


X 1$  \ 

THE  BLOCK  ^ 
NUMBER  ALHEAOV 
DEFINED  WITHIN 
■v  THIS  COURSE 


ERROR 

MESSAGE 


ADD  ENTRY  TO 
BLOCK  NAME 
NUMBER  TABLE 


REPLACE  BLOCK 
NUMBER  WITH 
ITS  INOEX  IN 
THE  TABLE 


THIS  LAST  \ 

YES 

X IK 

INCREMENT 

PROC  BLOCK  ^ 

COURSE  INOEX 

WITHIN  CURRENT  . 

AND  START 

^COURSE 

NEW  TABLE 

T 

SUBROUTINE  PROCB1 

CC******* **********************  PRCCB2  ******************************* 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


SUbROUT INE  PR0CB2 

PURPOSE 

TO  REPLACE  ALL  CLOCK  NUMBER  REFERENCES  WITH  THEIR  INTERNAL 
ID  NUMBERS 

CALLING  SEQUENCE 

CALL  PRGCB2  ( I PI , I NLM »NAM L , NUMBER » I ERR ) 

DESCRIPTION  OF  PARAMETERS 
INPUT 

IP1  - POINTER  TO  NAME  AND  NUMBER  TABLE  FOR  EACH  COURSE 
1NUM  - NUMBER  OF  ENTRIES  IN  TABLE  FOR  EACH  COURSE 
NAME  - PROCESSING  BLOCK  NAME  TABLE 
NUMBER-  PROCESSING  BLOCK  NUMBER  TABU- 
OUTPUT  ' ' 

1ERR  - NUMBER  OF  ERRORS  DETECTED 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
GETREC 
LOOKUP 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


CC*******************************************V^^^^^+^^^^ 
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4*  * 


^ PROC62  J 


▼ - - 

INITIALIZE  LOOP 

SET  COURSE 

THRU  TRANSFERS 

INDEX  TO 

FOR  THIS  PROC 

ONE 

BLOCK 

f 

INITIALIZE  LOOP 
TOR  ALL  PROC 
BLOCKS 


GET  THE  NEXT 
TRANSFER 
BLOCK  NUMBER 


LOOK  UP  THE 
BLOCK  NUMBER 
IN  THE  TABLE 
FOR  CURRENT 
COURSE 


LOOK  UP  THE 
BLOCK  NUMBER 
IN  THE  TABLE 
FOR  THE  SPECI- 
FIED COURSE 


REPLACE  BLOCK 
NUMBER  WITH 
INDEX  IN  THE 
TARI  F 


PRINT 

ERROR 

MESSAGE 


WAS 

THIS  THE  ^ 
LAST  TRANSFER 
SPECIFIED? 


REPLACE  BLOCK  | 
NUMBER  WITH 
ITS  INDEX  IN 
THE  TABLE 


6 


WAS 
IT  THE 
LAST  ONE  IN 
THE  CURRENT 
COURSE  ? . 


NO  I 

© 


INCREMENT 
COURSE  INDEX 
TO  THE  NEXT 
COURSE 


6 


SUBROUTINE  PROCB2 


CC ************ **********  *******  I PLOT  '*******************  **  *****  ****** 
CC*  * 

CC*  SUBROUTINE  1PLQT  * 

CC* 

CC*  PURPOSE 

CC*  TO  PRODUCE  THE  CALCOKP  PLOT  OF  THE  COURSES 

CC* 

CC*  CALLING  SEQUENCE 

CC*  CALL  I PLOT  { IPN ,NUMN »NTBL,  IPB , NUMB , NAME , NUMBER) 

CC* 

CC*  DESCRIPTION  OF  PARAMETERS 

CC*  IPNtNUMN*.NTbL  - DATA  BLOCK  NAME  TABLE  (SEE  SUBROUTINE  NAMED 

CC*  I PC  t NUMB » NAME  tNUMBE  R - PROCESSING  BLOCK  NAME  AND  NUMBER  TABLE 

CC*  (SEE  SUBROUTINE  PROCB1) 

CC* 

CC*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
CC*  PLOTB 

CC*  PLOT 

CC*  SYMBOL 

CC*  GETREC 

CC*  EFPLOT 

CC* 

CC* *********************************************************** ********** 
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IPLOT 


ALLOCATE  WORK 
SPACE  F JR  SUB- 
ROUTINE PLOTB 


INITIALIZE  LOOP 
THRU  ALL  COURSES 


PLOT  THE 

COURSE 

NAME 


INITIALIZE  LOOP 
THRU  ALL  PRO 
CESSING  BLOCKS 
IN  THE  COURSE 


RETRIEVE 
THE  PROC 
BLOCK  INFO 


PLOT  TMF 
PROCESSING 
BLOCK 
(PLOTB) 


^ ARE  \ 
THEnE  MORE 
BLOCKS  IN  THIS 
. COURSE  . 


ARE 

THERE 

MORF 

COURSES 


CLOSE  THE 

PLOTTER 

(EFPLOT) 


RETURN 


SUBROUTINE  IPLOT 


CC*  ********  *******  **********  -4*%.  PLGTX  *********  ¥**•***>>  ***  *t ******  ***$** 

cc* 

* 

cc* 

SUBROUTINE  PLOTX 

* 

cc* 

* 

cc* 

PURPOSE 

* 

cc* 

TO  MOVE  THE  PEN  TO  A NEW  POSITION  AND  INTERCEPT  PLOT  CALLS 

* 

cc* 

which  cause  pen  travel  farther  than  ten  feet,  when 

THIS 

* 

cc* 

occurs » thl-  pen  movement  is  broken  up  into  smaller 

MOVES. 

* 

cc* 

TEN  FEET  IS  7HE  MAXIMUM  TRAVEL  ALLOWED  IN  A SINGLE 

CALL  TO 

* 

cc* 

THE  C ALS P AM  VERSION  Of  SUBROUTINE  PLuT. 

* 

cc* 

* 

cc* 

CALLING  SEQUENCE 

* 

cc* 

CALL  PLOTX  (X,  Y) 

* 

cc* 

* 

cc* 

DESCRIPTION  OF  PARAMETERS 

* 

cc* 

X - X POSITION  TO  WHICH  PEN  IS  TO  faE  MOVED 

* 

cc* 

Y - Y PGS1T1GN  TO  WHICH  PEN  IS  TO  BE  MOVED 

; 

* 

cc* 

1 

* 

cc* 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

* 

cc* 

PLOT 

* 

cc* 

■ 

* 

CC*******  ************  !!t***,t'**:fr  >, 


Q 

i; 


CC ******** **’>*<- *******  *******  * <*  PL07B  < ******************************* 


cc* 

* 

cc* 

SUBROUTINE  PLOIB 

* 

cc* 

* 

cc* 

PURPOSE 

* 

cc* 

TO  PLOT  ■ 

THE  PROCESSING  BLOCKS  AND  CONNECT  THEM  WITH  ARROWS  TO 

* 

cc* 

SHOW  THt 

FLOW 

* 

cc* 

♦ 

cc* 

CALLING  C ECUENCE 

* 

cc* 

CALL  PLOTb  (XYIN,  1ELKIN,  NUMIN,  MAXIN, 

* 

cc* 

XYOUT,  IBLKOT,  NUMOUT,  MAXGUT,  ICODF, 

* 

cc* 

X,  Y,  1BLKNU,  INAME,  NT  ASKS , 1TASKS,  NTRAN,  ITRAN 

» * 

cc* 

1 SYNC , 1CSYNC,  IbSYNC) 

* 

cc* 

* 

cc* 

DESCRIPTION 

OF  PARAMETERS 

* 

cc* 

WORK  AREAS 

* 

cc* 

*****  i/i  Table  ***** 

* 

cc* 

XYIN 

- ARRAY  DIMENSIONED  (MAXIN,2),  USED  TO  STORE  THE 

* 

cc* 

COORDINATES  OF  THE  POINTS  WHICH  NEED  ARROWS 

* 

cc* 

POINTING  INTO  THEM 

* 

cc* 

I6LKIN  • 

- ARRAY  DIMENSIONED  ( MAX  IN ) , USED  TO  STORE  THE 

* 

cc* 

CLOCK  NUMbLR  FROM  WHICH  EACH  UNktSULVED  TRANSFER 

V 

cc* 

IS  TO  COME  FROM 

* 

cc* 

NUMIN  ■ 

- NUMBER  OF  tNTRIES  IN  XYIN  AND  1BLK1N  ARRAYS 

* 

cc* 

MAX1N  - MAXIMUM  NUMBER  OF  ENTRIES  IN  XYIN  AND  IBLKIN  ARRAYS 

* 

cc* 

*****  CUT  TAB  LF  ***** 

¥ 

cc* 

XYOUT  - ARRAY  DIMENSIONED  (MAX0UT,2),  USED  TO  STORE  THE 

* 

cc* 

COORDINATES  OF  THE  START  OF  THE  OUTGOING  ARROWS 

* 

cc* 

FROM  EACH  PROCESSING  BLOCK 

* 

cc* 

Il-.LKOT- 

ARRAY  DIMENSIONED  (MAXOUT),  USED  TO  STORE  BLOCK 

* 

cc* 

NUMBERS  OF  ENTRIES  IN  XYOUT  ARRaY 

* 

cc* 

NUMOUT- 

NUMB tR  OF  ENTRIES  IN  THE  XYOUT  AND  IBLKOT  ARRAYS 

* 

cc* 

MAXOUT- 

MAXIMUM  NUMBER  OF  ENTRIES  IN  XYOUT  ARRAY 

* 

cc* 

INPUT  PARAMETERS 

* 

cc* 

ICODF.  - 

I INITIALIZE  FOR  A NEW  COURSE 

* 

cc* 

2 CONTINUE  WORKING  ON  THE  SAME  COURSE 

* 

cc* 

X 

X COORDINATE  OF  LOWER  LEFT  CORNER  OF  BOX 

* 

cc* 

Y 

Y COORDINATE  UF  LOWER  LEFT  CORN  Ly  OF  BOX 

* 

cc* 

1BLKNO- 

BLOCK  NUMBER 

* 

cc* 

i name  - 

BLOCK  NAME 

* 

cc* 

NTASKS- 

NUMBER  OF  TASKS  IN  THE  BLOCK 

* 

cc* 

ITASKS- 

ARRAY  OF  TASK  NAMES 

* 

cc* 

NTRAN  - 

NUMBER  OF  TRANSFERS  INIO  THE  BLOCK 

★ 

cc* 

ITRAN  - 

ARRAY  OF  BLOCK  NUMBERS  FROM  WHICH  EACH  TRANSFER 

* 

cc* 

TAKES  PLACE 

* 

cc* 

1 SYNC  - 

SYNC  CODE  ( C-NCJ  SYNC,  1-SYNC  TO,  2-CORRELATE  WITH) 

¥ 

cc* 

ICSYNC- 

SYNC  COURSE  NAME 

* 

cc* 

IbSYNC- 

SYNC  BLOCK  NUMBER 

* 

cc* 

* 

cc* 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQU1PED 

* 

cc* 

PLOT 

* 

cc* 

SYMBOL 

* 

cc* 

NUMBER 

* 

cc* 

ARROW 

* 

cc* 

LOOKUP 

* 

cc* 

* 

CC*  *****  * **  *****  ***** ***  * ****  **  *******  ******  *** * ******************  ****** 


: 
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NOTE  ABSOLUTE 
POSITION  OF  BOX 
IS  THEN  GIVEN  BY 
(X.YI 


r THERE  ANY  N 
IN  TABLE  CNTRILS 
LEFT  OVER  FROM 
v LAST  COURSE 


ZERO  OUT 
IN  AND  OUT 
TABLES 


THIS  THE 
START  OF  A 
NEW  COURSE 


PRINT 

ERROR 

MESSAGE 


r THERE  AN  IN^ 
TABLL  ENTRY  FOH 
. THIS  BLOCK  . 


PRINT 

ERROR 

MESSAGE 


RETURN 


COMPUTE 
COORDINATES 
OF  BOX  FROM 
OFFSETS 


DRAW  THE 
ARROW  GOING 
OUT  OF  THE 

BOX 


DELETE  THE 
IN  TABLE 
ENTRY 


THERE  ANOTHER 
IN  TABLE 
\ ENTRY 


RESET  INDEX  SO 
THAT  NEW  ENTRY 
WILL  REPLACE 
THE  OLDEST  ONE 


ADD  ENTRY  TO 
OUT  TABLE 


SUBROUTINE  PLOTB 


THE  TRANSFER 
BLOCK  H IN  THE 
_ OUT  TABLE  . 


MORE 


IN  THE  IN 
TABLE 


ANY  MORE 
TRANSFERS  ? 


PLOT  THE  BOX 
AND  THE  INFO 
INSIDE  IT 


INITIALIZE  LOOP 
ON  ALL  TRANSFERS 
FOR  THIS  BLOCK 


DRAW  THE  ARROW 
COMING  INTO  THE 
BOX 


pOIMT 

ERROR 

MESSAGE 


ADD  ENTRY 
TO  IN  TABLE 


RETURN 


SUBROUTINE  PLOTB  - CONTINUED 


ARROW 


CC  * ******  **  -?>*♦♦♦  i-%  c***#  * 

CC* 

SUBROUTINE 


CC* 

CC* 

CC* 

CC* 

CC* 

CL* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


ARROW 


pur post 

To  DRAW 


AN.  ARROW  FOR  SUBROUTINE  PLCTB 


CALLING 

CALL 


SEQUENCE 
ARROW  (XI, 


Y1 


< <- » 


Y2) 


DESCRIPTION 
INPUT 
XI  - X 

Y 1 - Y 

X2  - X 

Y2  - Y 


OP  PARAMETERS 

COORDINATE  C-F  START 
COORDINATE  OF  START 
COORD INATE  OP  END 
COORDINATE  CP  END 


OF 
OF 
POINT 
POINT 


SUBROUTINE 

PLOT 


AND  FUNCTION  SUBPROCRAMS  REQUIRED 


♦ **  # ***  * *$ * * * $ * * * % % * 4c  * 4 $ if  * if  j)t * $ * $ 

* 
* 
* 
* 
* 
4c 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


ARROW 

ARROW 


cc*4*'"'**i>”w*”*********«**‘*»*»«'«»»»»**«<-.»*.«..«„„»„„,*,„,; 
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CC *********************** ******  r-IXABE  **t  If*************************** 

cc*  * 

SUBROUTINE  FIXABE  * 

PURPOSE  l 

TO  ADD  THE  AIRBASE  NUMBER  AND  TIME (FROM  THE  ASSOCIATED  AIRBASE* 
hVENT  RECORD)  TL  THE  CCTS  RECORDS,  PMT  GROUP  RECORDS,  AND  THE  * 
PMT  RECORDS  * 

*■ 
* 


CC* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


CALLING  SEQUENCE 


CALL  FIXABE 

DESCRIPTION  OF  PAR AM FT GRS 
NONE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
GETREC 


CC****v ******♦**********•>*♦*£)(<**>;<*#£*<<***$$ *******#*. *******$!{(#$,((***$£ 
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SUBROUTINE  FIXABE 
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fmmmmrn • 


I 

I 


I 


] 


I 


I 


mm 


i 


(X*  *******************  *********  FIXPRO  ******************************* 
CC*  * 

SUBROUTINE  FIXPRO 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


PURPOSE 

TO  REPLACE  THE  SYNC  TYPE  IN  THE  PROCESSING  BLOCKS  WITH  THE 
COURSE  NUMBtK  TO  WHICh  THE  BLOCK  BELONGS.  THIS  IS  DONE 
FOR  USt  BY  PHASE  3 


CALLING  SEQUENCE 

CALL  FIXPRO  (IP1,  1NUM ) 


DESCRIPTION  OP  PARAMETERS 

IP1  - ARRAY  OF  POINTERS  TO  THE  FIRST  PROC  BLOCK  IN  EACH 
COURSE 

INUM  - NUMBER  OF  PROCESSING  BLOCKS  IN  EACH  COURSE 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
GETREC 


cc* ************************************************ ********************* 


i 


Cq* ******************* ******  **♦  SORT  ***********************  v* ******** 
CC*  * 
CC*  SUBROUTINE  SORT  * 
CC*  * 
CC*  PURPOSE  4 
CC*  TO  SORT  THE  DATA  BLOCKS  SO  THAT  THEY  ARE  IN  THE  PROPER  * 
CC*  SEQUENCE  1-  OR  STEP  2 OF  TRAM  MODEL  * 
CC*  * 
CC*  CALLING  SEQUENCE  * 
CC*  CALL  SORT  * 
CC*  * 
CC*  DESCRIPTION  OF  PARAMETERS  * 
CC*  NONE  * 
CC*  * 
CC*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED  * 
CC*  I SOFT  * 
CC*  * 
CC ******************** ***************************************** ********* 


66 


SUBROUTINE  SORT 


67 


1 


) 


CC **************** *************  I SORT  ******************************** 

CC*  * 

CC*  SUBROUTINE  ISORT  * 

CC*  * 

CC*  PURPOSE  * 

CC*  TO  SORT  THE  RECORDS  OF  A GIVEN  FILE  IN  COMMON  /FILE/  INTO  * 

CC*  ASCENDING  SEQUENCE  * 

CC*  * 

CO*  CALLING  SEQUENCE  * 

CC*  CALL  ISORT  (INDEX,  1WORD)  * 

CC*  * 

CC*  DESCRIPTION  OF  PARAMETERS  * 

CC*  INPUT  * 

CC*  INDEX  - FILE  NUMBER  TO  BE  SORTED  * 

CC*  I WORD  - WORD  NUMBER  WITHIN  THE  RECORDS  ON  WHICH  TO  SORT  * 

CC*  * 

CC*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED  * 

CC*  NONE  * 

CC*  * 

cc ************************************************************** ******** 


RETURN 


NUMBER  OF 
RECORDS LfSS 
. THAN  TWO'  „ 


SET  P POINTER  TO 
SAME  VALUE  AS 


ARE  ^ 
FIRST  TWO 
RECORDS  IN 
SEQUENCE 


STORE  TEST  VALUE 
(KEY  FROM  RECORD 


SWAP  FIRST 
TWO  RECORDS 


KEY  IN  RECORD 


THE  TEST  VALUE 


SET  PI  TO  POINT 
TO  THE  FIRST 
RECORD  IN  THE 
FILE 


RESET  P TO  POINT  TO 
THE  RECORD  BEFORE 
THE  CURRCNT  P 


SET  P2  TO  POINT 
TO  THE  SECOND 
RECORD  IN  THE 
FILE 


INSERT  RECORD  P3 
AFTER  RECORD  P 


SET  P2  TO  VALLE 
OF  P3 


RESET  P3  TO  THE 
RECORD  WHICH 
NOW  FOLLOWS 
RECORD  P2 


RESET  P3  TO  THE 
NEXT  SEOUENTIAL 
RECORD 


SET  P3  TO  POINT 
TO  THE  THIRD 
RECORD  IN  THE 
FILE 


INSERT  RECORD  P3 
BEFORE  THE  FIRST 
RECORD 


RESET  P3  TO  POINT 
TO  THE  RECORD  WHICH 
NOW  FOLLOWS  RECORD 


£0 *$$$*$*$**$ ******** **********  OUTPUT  * ******  ****************  ******** 
CC*  * 
CC*  SUBROUTINE  OUTPUT  * 

cc*  * 

CC*  PURPOSE  * 
CC*  10  WRITE  THE  INPUT  DATA  ONTO  THL  FILE  FOR  TRAM  STEP  2 * 
CC*  * 
CC*  CALLING  SEQUENCE  * 
CC*  CALL  OUTPUT  (1 PN,NUKN,NTBL,  1 Pb  »NUMB ,NAKE , NUMBER ) * 
CC*  * 
CC*  DESCRIPTION  OF  PARAMETERS  * 
CC*  INPUT  * 
CC*  IPNfNUMN  »NTBL  - DATA  RLOCK  NAME  TABLE  (SEE  SUBROUTINE  NAMED* 
CC*  INPUT-OUTPUT  * 
CC*  IPB, NUMB , NAME, NUMBER  - PROCESSING  BLOCK  NAME  AND  NUMBER  * 
CC*  TABLE  (SEE  SUBROUTINE  PROCbl  ) * 
CC*  NOTE  - PROCESSING  BLOCK  NAME  TABLE  IS  DESTROYED  BY  * 
CC*  THE  PROCESS  OF  CONVERTING  PROCESSING  BLOCK  * 
CC*  NUMBER  table  TO  CHARACTER  FORMAT  for  OUTPUT  * 

cc*  * 

CC*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED  * 
CC*  GETREC  * 
CC*  WRITE  * 
CC*  * 

cc ********************************************************* ************* 
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I < 


CC***«*»***^-*t4  *♦***♦*♦*  ♦*+***#  WRITE  ******************************** 

SUBROUTINE  WRITE 


CC** 

;•  ^ * *****  if  ■>;. * * 

cc* 

cc* 

cc* 

cc* 

PURPOSE 

cc* 

TO  WRITE 

cc* 

c.  c* 

CALLING  SEC 

CCA 

CALL  WK 

CCA 

cc* 

DESCRIPT  ION 

cc* 

INPUT 

CCA 

Lu 

cc* 

I ARRAY  ■ 

CCA 

NV.'uS 

cc* 

cc* 

SUBROUTINE  - 

cc* 

NONE 

cc* 

- FORTRAN  LOGICAL  UNIT  NUMBER 


* 

* 

* 

4 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


CC* **** 4***4 ***  4 ********************************* *********************** 


*-,*.*-.******  < rmiC! IP  ******************************* 

^q*****************************  LOCKUP  * 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


SUBROUTINE  LOOKUP 


PUiiniSLOOK  UP  A VALUE  IN  A TABLE  AND  RETURN  ITS  POSITION 

“oOKUp'dVAL,  IARRAY  t N,  1COOE,  INULXI 

DESCRIPTION  OF  PARAMETERS 

1 tv.lL  - VALUE  TO  BE  SEARCHED  FOR 
IARRAY-  TABLE  OF  VALUES  T0^t  SEARCHED  FOR 
N - NUMBER  OF  ENTRIES  IN  1ARRAY 

IffDE  - 1 - OATA  VALUES  OCCUPY  ONE  WORD 

1CG°  2 - DATA  VALUES  OCCUPY  THREE  WORDS,  USED  FLR  IG 

CHARACTER  FIELDS  ON  IBM  COMPUTER 
(REQUIRES  1 V AL ( 3 ) » 1ARRAY(3,N)  ) 

0lioETX  - INDEX  OF  THE  VALUE  IN  THE  TABLE,  ZERO  IF  THE  VALUE 
IS  NOT  FOUND 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
NONE 


* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


£:*.„„**«**»* ..«.*..««««.«**«****«****••••**•***♦*** 
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Section  1.6 

SUBROUTINE  CROSS  REFERENCE  TABLE 


In  the  table  on  the  following  pages,  the  column  headings  show  the  sub- 
routine names  that  do  the  calling,  and  the  row  headings  give  the  subroutine  names 
that  are  called. 


74 


tn 

o 

a 

u 

a. 


<NI 

a! 

t-H 

N 

cc 

CO 

Ui 

o 

►- 

o 

u 

H* 

u 

a 

a 

a 

-J 

UL, 

a 

V 

« 

< 

a. 

a. 

H 

M 

at 

►- 

at 

04 

UJ 

UJ 

a. 

X 

a. 

a 

or 

* 

or 

o: 

</) 

ROUTINE  USAGE  SUMMARY 

OR  ENTRY 


Section  1.7 

COMMON  VARIABLE  DEFINITIONS 


The  tables  on  the  following  pages  define  the  meaning  of  each  variable 
contained  in  each  of  the  common  blocks  used  by  this  program. 


! — 

L 

h 


83 


r 


t { 


* COMMON  /FILE/  - INTERNAL  STORAGE  FOR  DATA  bLOCKS  * 

*J**********™++***++**********++*******4+*4**+*+t4t^t+„tt„„M^^t4^l 

* VAR  I A3  LE  * DESCRIPTION  * 

* * * 
i*********************************************^***^**^^,^^^^^**^* 


♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

* 

♦ 

* 

* 

* 


MAXFLE 
ISTRT ( J ) 
1END(J ) 
NRECSt J ) 
MAXADR 
NEXTAD 
IF1L£( I ) 


♦ 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

♦ 

* 

* 

♦ 

* 

* 

* 

* 

* 


MAXIMUM  NUMBER  OF  BLOCK  TYPES  WHICH  CAN  BE  STORED 
POINTER  TO  THE  FIRST  LLOCK  STORED  OF  EACH  TYPL 
POINTER  10  THE  LAST  BLOCK  STORED  OF  EACH  TYPE 
NUMBER  OF  bLOCKS  CURRENTLY  STORED  FUR  EACH  TYPE 
DIMENSION  OF  VARIABLE  IF  I LE 

POINTER  TO  THE  NEXT  AVAILABLE  LOCATION  IN  THE  I FILE  ARRAY 
STORAGE  AREA  FOR  THE  DATA  bLOCKS.  EACH  BLOCK  HAS  THE 
FOLLOWING  FORMAT 


WORD  NUMBER 
1 
2 

3 

4 


DESCRIPTION 

POINTER  TO  THE  NEXT  BLOCK 
POINTER  TO  THE  LAST  BLOCK 
NUMBER  OF  WORDS  IN  THIS  BLOCK 
DATA  KURDS 


3+NWDS 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

*• 

* 

* 

* 


I********************************** 


: 


U 

0 

0 

0 

0 

0 

n 


itufcMiaritii  a . iv/  afc  . .,  , 


********************************* 


COMMON  /TABLES/ 


FUNCTION  NAME  LOOKUP  TABLES 


* 

* 

* 

***********************************  ^^.j^*******.^*.^^^^ 
* * 

* VARIABLE  * DESCRIPTION 

* * 

***************************** *********  ********************* 
* * 

* NTBLS  ♦ 

* ITBLS(3,I,J)  * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 


NUMBER  OF  TABLES 

FUNCTION  NAME  LOOKUP  TABLES 

SUBSCRIPT  DESCRIPTION 

1 ALLOWS  3 WORDS  PER  TEN  CHARACT 

2 INDEX  OF  EACH  ENTRY  IN  A TABLE 
NOTE  - THE  FIRST  ENTRY  (ITBLSI 
NUMBER  OF  NAMES,  AND  THE  REST 
CONTAIN  THE  NAMES 

3 INDEX  OF  TABLE  NUMBER 


******************** 

* 

* 

* 

******************** 

♦ 

* 

* 

******************** 

* 

* 

* 
* 
* 
* 

* 
* 
* 
* 


ER  NAME 

It ItJ)  ) GIVES  THE 
OF  THE  LNDRILS 


***************************************#*****^*^^#^:>5)[j(i!Mt^i([jSk:tti^^ijt!(tjj[j>j(( 


» **************“************•**•***•*********„*;„„ 

* COMMON  /ICNAME/  - CARD  NAME  lAULE  * 

; WB,‘*1“t“*'**»««»*».m.m.„„wt„„„,„; 

* VARIABLE  * DESCRIPTION  * 

r*"*”*wr*"** 

* ^NAMES  * NUMBER  OF  CARD  TYPES  * 

* INAMES(3,J)  * CARD  NAME  OF  LACH  CARD  TYPE  * 

! _ * F0R  THOSE  CARDS  WHICH  ! 

: “'J’  : L -OCK  ASSOCIATED  each  tnput  card  : 


h ( 


T 

A* 


*********************  *****************  **********  **************  *****:>;:  *.#********* 
* * 

* COMMON  /ODIN/  - INPUT  DATA  CARD  DLSCR1PTION  TABLE  * 

* * 

**********************************  ********************************************* 
* * * 

* VARIABLE  * DESCRIPTION  * 

* * * 

**  * ***********  £ ***  * * v * * * * ***  * ******  * ***  * ****  ******  * ****  ****  * ***********  * ******  * 
* * * 

*N1  ( J ) * NUMBER  CiF  CHARACTER  DATA  HELDS  CONTAINED  ON  E ALH  CARD  * 

* * TYPE  (INCLUDES  CARD  NAME  HELD)  * 

*N2(J)  * NUMe  cR  OF  NUMERIC  PARAMETERS  CONTAINED  ON  EACH  CARD  # 

* IRNGUIt'j)*  LONER  BOUND  OF  ACCEPTANCE  RANGE  FOR  EACH  NUMERIC  VALUE  * 

* * ON  EACH  CARD  TYPE  * 

* IRNG2 ( I » J ) * UPPER  BOUND  OF  ACCEPTANCE  RANGE  FOR  EACH  NUMERIC  VALUE  * 

* * UN  EACH  CARD  TYPE  * 

* * * 

*♦***£♦**  *♦♦*  *******  si'**#!*  *****  ********  ***************************************** 


* * 


* * 


**4^**##*^*** *************************************************** *************** 

♦ 

* COMMON  /DBD/  - INTERNAL  DATA  CLOCK  DESCRIPTION  TABLE 

************************************** *************^** *************** ********  ** 

♦ 

* * * 
VARIABLE  * DESCRIPTION 

* 

***  ******  ***************************  ******************************************* 


♦ 

* 

* 

* 

V 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

♦ 

* 

♦ 

* 

* 

♦ 

* 


NdLKS 

IDI  ( I) 

I D2 ( I i 
IFHTU  ) 


* 

* 

* 

* 

# 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


NUMBER  C!"  DATA  BLOCKS 

POINTER  TU  START  OF  DATA  BLOCK  DESCRIPTION  (IN  IFMT 
FOR  EACH  DATA  BLOCK 

NUMBER  OF  WORDS  OF  DESCRIPTION  FOR  EACH  DATA  BLOCK 
DATA  BLOCK  DESCRIPTION  CODES' 

THE  FOLLOWING  CODES  ARE  CURRENTLY  BEING  USED 


ARRAY) 


CODE 

-N 


C 

1 

4 

6 

9 

10 


MEANING 

DATA  WORD  CONTAINS  1 HE 
LENGTH  DATA  TO  FOLLOW. 

WORDS  PER  ENTRY « AND  THE  NEXT  N 
ENTRIES 

NO  DATA*  OR  A CONTINUATION 
INTEGER 

FLOATING  POINT 
CHARACTER  DATA 
DATA  BLOCK  NAME 
NAME 


NUMBtR  OF  ENTRIES  LF  VARIABLE 
N GIVES  THE  NUMBER  OF  DATA 
CODES  uLSCRIBE  THE 


UNluUt) 

BE  UN  1 CUE  ) 


* 1 1-30 

* 

+3 1-50 

* 

*51-60 

* 

*ol-7C 

* 

* 


(MUST  BE 
(MAY  NOT 
REFERENCE 
1C  GIVES  THE  BLOC 
REFERENCE  (MAY  BE  BLANK) 


NUr.CER 


DATA  BLOCK 
BLOCK  NAME 
CODE  MINUS 
BLOCK  NAME 
CODE  MINUS  3w  GIVES  THE  BLOCK  NUMBER 
FUNCTION  NAME 
CODE  MINUS  5C 
FUNCTION  NAME 
CODE  MINUS  60 


GIVES  TABLE  NUMBER 
(MAY  BE  BLANK) 
GIVES  TABLE  NUMBER 


* 

* 

* 

* 

* 

❖ 

* 

* 

* 

* 

* 

V 

* 

* 


* 

* 

* 

*«• 

* 

* 

* 

* 

* 

* 


********  *****  ******************  ********************  **************************** 
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Section  1.8 

INTERNAL  DATA  BLOCK  DESCRIPTIONS 


The  tables  on  the  following  pages  define  the  contents  of  each  of  the 
data  blocks  used  to  store  the  TRAM  inputs  in  phase  1.  These  data  blocks  are 
stored  in  common  area  /FILE/.  The  format  code  associated  with  each  data  word 
is  used  by  the  program  to  determine  what  data  are  contained  in  that  word.  See 
the  description  of  common  block  /DBD/  for  the  definition  of  these  codes. 
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; -,r^.  .-,.-3.  .--A. .... 


* 


* + ***♦*$  + **❖*  *********#****#$*******££*£*  ^ ^ 


* °ATA  BLOCK  NUMBER  1 - CONTROL  PARAMETERS  (NOT  CURRENTLY  USED)  * 

* 

* * * 

* WORD  * FORMAT  * DESCRIPTION  t 

* * COOL  * 

* * * 

♦ ****^***************,>************#*£*£^#£££^^  + ^^^  ;•.*##**  **.**>!. l!jr 


1 * 

2 * 


3 * 

4 * 


5 * 

6 * 


* CARD  SEQUENCE  NUMBER 

* NOT  USED 

* NOT  USED 

* ATTRITION  RAT  IQ 

* 


7 * 

8 * 


* 9 * 

♦ 10  * 
♦ 11  * 
* 12  * 

* 13  * 

* 14  * 

* * 


* DELAY  TIME  CONSTANT 

♦ 


* PERCENT  COPILOTS  RECOVERABLE  AS  PILOTS 

* COPILOT  HOLDING  PERIOD 

* NUMBER  OF  CALENDAR  UNlTS/YEAR 

* 


*****************  *****.*,!,* 


*e«  “j^AF'Tra-- 


• '*  •-•• 


I 


n 

y 


*****************  *******************************  ********  *****************£**<* 
* * 

* DATA  DLOCK.  NUMBER  2 - AIR  BASES  * 

* * 

****************************************************************************** 
* * * * 

* WORD  * FORMAT  * DESCRIPTION  * 

* * CODE  * * 

* * * * 

************* ^* ** v** ********************************** ***********v*** ********* 


1 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


9 

0 

0 

1 

1 

1 

1 

1 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


CARD  SEQUENCE  NUMBER 

NOT  USED 

NOT  USED 

AIR  BASE  NAME 


INITIAL 

INITIAL 

INITIAL 

INITIAL 

INITIAL 


INVENTORY 
NUMBER  OF 
NUMBER 
NUMBER 
NUMBER 


OF 

OF 

OF 


OF  AIRCRAFT 

PILOTS 

COPILOTS 

GSu 

DSO 


* 

* 

* 

* 

* 

* 

* 

* 

* 


**************************** ************************ *** *********************** 
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•*  «■ 


********************  **  ********  ****  ****  * **  *******  * ************  **************  *** 
* 4 
* DATA  BLOCK  NUMB LR  3 - RESOURCE  INVENTORY  * 


*********  ********** *4-* *********************************  ******  **********  ***** ** 
* * * * 

* WORD  * FORMAT  * DESCRIPTION  * 

* * CODE  * * 

* * * * 

********  *************  *******  **********  **************************************** 
* * * * 

* 1 * * CARD  SEQUENCE  NUMBER  * 

* 2 * * NOT  USED  * 

* 3 * * NOT  USED  * 

* 4 * 10  * RESOURCE  NAME  * 

* 5 * 0 * * 

* * A * ^ 


3 * 

4 * 


5 * 

6 * 


7 * 51  * GENERATING  FUNCTION  NAME 


8 * 
9 * 


* 10  * 1 * START  DATE 

* 11  * 1 * END  DATE 

* 12  * ~1  * NUMBER  OF  PARAMETERS 

* - * 1 * PARAMETERS 

* * * 


***  * * **************  * ***  **  *****  *********  **  **  ***********  *****  ******************* 


1 : 


******************************************** 


DATA  BLOCK  NUMBfcR  4 - SOURCE 


**  * * * ***********  * ******  A * * * * * ****  * * * * * ***  * * * * 4 **  * * * * * * * * * * * 


****************** 


* WORD  * FORMAT  * DESCRIPTION 

* * CODE  * 


********************************** * * ** * ** * * * * * * * * ** ** * * * ** * ** * ** * ** * * * * * * * * ** 


* CARD  SEQUENCE  NUMBER 

* NOT  USED 

* NOT  USED 

* NAME  OF  SOURCE 


51  * GENERATING  FUNCTION  NAME 


* START  DATE 

* END  DATE 

* NUMBER  OF  PARAMETERS 

* PARAMETERS 


******************************** ******************** 


************************* 


***************************************** ************************ ************* 

?, 

* 

* DATA  BLOCK  NUMBER  5 - AIRCRAFT  DELIVERIES  * 

* 

**,M******************^*************************  **********  ******************* 

* * * * 

* WORD  * FORMAT  * DESCRIPTION  * 

* * CODE  * * 

vnt*********************  i-****^***********  ************************************* 


* 1 * 

* 2 * 

* 3 * 


* CARD  SEQUENCE  NUMBER 

* NOT  UStD 

* NOT  USED 


* A * 12  * AIR  EASE  NAME 

* k # n * 


i>  * 

6 * 


0 * 

Q # 


*7*1*DATL 

* 8 * 1 * NUMBER  OF  A/C  * 

* +********#************** t**************************************************** 


* * 


* if.  >Jt  # * ***♦♦  * # * >)<>>:«*  $*  * If  * * * * ***  ♦ * * * ***  * **  $ ♦ * * « #*  * ********************  j)t  :£  * $ 

# * 

v DATA  BLOCK  NUMBER  6 - COURSE  BLOCK  * 

* * 

#$$***#*>;c**.**¥****«*****Y#***'***#**’;<Y****4**#  ********  *«*«#»****♦********#*#*! fr* 
* * * * 

* WORD  * FORMAT  * DLSCRIPTION  * 

* CODE  * * 

* * * 

****:}•*  if  &$$  ****  >!<*♦>(<$>(>: >r*  * J**#V*-*  *$❖*  **>!<  ’ft#*******#*'  A***####*. 

* * 


i 

1 


* 

V 

* 

>r 

i> 

* 

* 

❖ 

t 

❖ 

3>. 

* 

❖ 

* 

* 

* 

%■ 


1 

2 

3 

4 
3 
6 

7 

8 
9 

10 

11 

12 

13 

14 
13 
16 


£ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

>)< 

* 

# 

# 

* 

* 

* 


* CARD  SEQUENCE  NUMBER 

* NOT  USED 

* NOT  USED 

9 * COURSE  NAME 

0 * 

0 * 

1 * COURSE  TYPE 

1 * PERSONNEL  TYPE 

4 * X 

4 * Y 

1 * MAX  CLASS  SIZE 

1 * CLASS  PER01D 

1 * PRIORITY 

1 * EARLIEST  GRADUATION  DATE 

1 * POINTER  TO  FIRST  PROC  BLOCK  IN  THIS  COURSE 

1 * POINTER  TO  LAST  PROC  BLOCK  IN  THIS  COURSE 


♦ 

* 

$ 

v 

* 

¥ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


***  ^fr***************  *¥<-*¥**4  ***¥*¥¥¥¥  **¥*¥**¥  ¥*>i:******Y:,!!**¥**4¥:'!*******4‘ 

* * 
* DATA  BLOCK  NUMBER  7 - PROC  CLOCK  * 


* 


* 


¥****¥*¥*«♦**  4*44**** 4*4* *¥¥***¥  *4  V*¥*  ¥*¥  *4 -.-*¥¥**  <■«***¥  ¥**>!■  *¥¥¥*$****  » 44 ¥****« 


i; 

* WORD 

4 

4 

******.-; 
4 


* 

4 

4 

# 

4 

4 

4 

4 

¥ 

¥ 

♦ 

* 

4 

* 

* 

♦ 

* 

4 

♦ 

^r 

* 

♦ 

* 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 


FORMAT 
COD  L 


* 

4 

>f < 

4 


DtSCRJ PT10N 


4 

4 

* 

* 


•<s  ^ * * * v * * $ * ¥ 4.  * * * * 4 * * * * * * * $ * 4 ¥ * * 4 * * 4 * 4 ¥ * * * 4 4 4 * * 4 * * £ * 4 * * * * 4 * * * * * * * 4 * 4 4 * 4 * * * 


4 

♦ 

♦ 

* 

4 

* 

❖ 

* 

❖ 

4 

4 

* 

♦ 

4 

* 

♦ 

* 

* 

4 

* 

❖ 

* 

* 

* 

* 

* 


8 

0 

0 

36 

0 

0 

1 

1 

1 

1 

4 

4 

1 

-3 

-3 

1 

1 

4 

18 

0 

0 


4 

4 

❖ 

* 

* 

>;; 

❖ 

4 

* 

* 

4 

* 

* 

4 

* 

4 

4 

* 

* 

4 

* 

* 

4 

* 

* 


CARD  SEQUENCE  NUMBER 
NOT  USED 
NOT  USED 
PROC  BLOCK  NAME 


SYNC  COURSE  NAKl- 


SYNC  BLOCK  NO 
SYNC  CODE 
BLOCK  NUMBER 
DURATION 
X 
Y 

PRIORITY 

NUMBER  TRANSFERS 
NUMBLR  TASKS 

bLCCK  NUMBER  TRANSFERRED  FROM 

PRIORITY 

RATIO 

TASK  NAME 


* 

4 

4 

4 

4 

* 

* 

¥ 

¥ 

*■ 

¥ 

4 

4 

* 

4 


4 

♦ 

4 

* 

* 

¥ 

* 

♦ 

4 


*44 ¥444* *444* *¥¥¥** 44 ¥4*4 4 44 ¥4*4 444 444 4 44 4 444 444 4 444444 4444 *¥ 4444444*4 44444 ¥44 


# # 


>? 

* 


* OAT A BLOCK  NUMBER  9 - RUB 


* 

WORD 

9 

FORMAT 

* DESCRIPTION 

V 

* 

* 

CODE 

♦ 

* 

* 

* 

* 

9 

^ ^ ^ 1 

V 

4 > v *$***& *){'>;: 

* 

1 

9 

* CARD  SEQUENCE  NUMBER 

* 

* 

2 

* 

♦ NOT  USED 

Jji. 

* 

3 

9 

* NOT  USED 

* 

4 

♦ 

9 

* RUB  NAME 

* 

* 

3 

♦ 

0 

9 

* 

* 

6 

* 

0 

* 

* 

9 

7 

9 

“3 

* number  of  resources 

•r 

* 

■“ 

* 

20 

* NAME  OF  RUCB 

* 

* 

— 

♦ 

0 

* 

$ 

* 

- • 

* 

0 

* 

* 

* 

* 

* 

***********  ****  *************  *******  **********************************  ****.;,.***;,)( 


DA'I  A BLOCK  NUMBER  10 


RUDB 


*******  ******************************************************  ****  **  ******  * ¥ * ** 


Si  A WORD  * FORMAT  * DESCRIPTION 
* * COD  £ * 


*********  ****************************************  ****** * ********  ************** 


33  -5=  RESOURCE  NAME 


63  * GROUPING  FUNC110N 

0 * 


64  * TIMING  FUNCTION 


ECONDARY  RUB 


40  * ALTERNATE  RUDB 


* UNITS  CONSUMPTION/UNIT  USER 

* SOURCE  NAME 


*****************  ********  *****************************  ***********  ************* 


* * 

* DATA  BLOCK  NUMB LR  11  - AIRBASE  TIME  HISTORY  (NOT  CURRENTLY  USED)  $ 


T 

**  * * * ******  * *****  ***  ****  * **************  * ****  **  ***  V **  * * * ***  * * * * *****  * * * * * * * * £ * £ 

♦ * * ^ 

* WORD  * FORMAT  * DESCRIPTION  * 

* * CODE  * * 

* * * 

T 

*<•**  * ******  **  **  * * * **************  * * **  * ****  V V **  <=  ***  **  ********  to;.  **  * * ** * * x,  •/, .**#  * Jj,  * j;, 


♦ 

* 

* 

* 

* 

* 

♦ 

* 

* 


1 

2 

3 

4 


6 

7 


* 

* 

* 

* 

* 

* 

* 

* 


0 * 

- * 


12 

C 

0 

1 

“1 

1 


* CARD  SEQUENCE  NUMBER 

* NOT  USED 

* NOT  USED 

* AIRBASE  NAME 

* 

* 

* PERSONNEL  TYPE 

* NUMBER  OF  POINTS  • 

* POINTS 


* 

A 

* 


* 

* 


* 

* 


************************************************  ********  ************  *****  ** 


LJ 
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I 


*********  ***************************** 

* 

* DATA  BLOCK  NUMBER  12  - AIRBASE  EVENT  * 

* * 

*************  **  *************  *******************************  ******************* 

♦ ♦ * * 

* WORD  * FORMAT  * DESCRIPTION  * 

* * CODE  * 

* * * ^ 

**************************************  ******************************  i**.***^^^ 


I 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 


* 

* 

★ 

* 

* 

* 

★ 

* 

* 

* 

* 

* 

★ 

* 

* 


9 

Q 

0 

12 

0 

0 

1 

4 

4 

1 


* CARD  SEQUENCE  NUMBER 

* NOT  USED 

* NOT  USED 

* EVENT  NAME 

* 

* 

* AIRBASE  NAME 

♦ 

* 

* TIME 

* CREW  RATIO 

* ALERT  RATIO 

* HRS/CRE W/WEEK 
4 


I 
1 

I 

I 

#* 

1 

dRfM 

w* 

if* 

m 

*lv 

I 


I 
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* DATA  BLOCK  NUMBER  13  - CCTS  BLOCK  * 


* WORD  * FORMAT  * DESCRIPTION  * 

* * CODE  * * 

* * w * 


******«******«*****w****,**^*„M#WMWM<wwww^^<w##w^^^  * 


* CARD  SEQUENCE  NUMBER 

* NOT  USED 

* NOT  USED 

* AIRBASE  EVENT  NAME 


* COURSE  NAME 

* 


* PERSONNEL  TYPE 

* RATIO 

* A B NUMBER 

* TIME 

* 


2 

.9 


*********************************************************************  *.?  ******* 
* * 

* DATA  BLOCK  NUMBER  14  - PMT  CROUP  * 

* * 
***** ******************************************************************* ****** 


* 

* 

* 

* 

WORD 

* 

FORMAT 

* 

DESCRIPTION 

* 

* 

* 

CODE 

* 

* 

* 

* 

* 

* 

*****************  ***  * *****************  *********************  *********** ******** 

♦ 

* 

* 

* 

* 

1 

* 

* 

card  sequence 

NUMBER  * 

* 

2 

* 

* 

NOT  USED 

* 

* 

3 

* 

* 

NOT  USED 

* 

* 

4 

* 

22 

* 

AIRBASE  EVENT 

NAME  * 

* 

5 

* 

0 

* 

* 

* 

6 

* 

0 

* 

* 

* 

7 

* 

1 

* 

PER01D 

* 

* 

8 

* 

1 

* 

NUMBER  OF  PMT 

COURSES  * 

* 

9 

* 

0 

* 

AB  NUMBER 

* 

* 

10 

* 

0 

* 

TIME 

>i> 

■V 

* 

11 

* 

0 

* 

PMT  NUMBER 

* 

* 

* 

* 

* 

***********************************************************  ******************* 
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*******************  *******************  v**>:  *******************  **♦*****>;.*******!,. 


DATA  BLOCK  NUMBER  15  - PMT  RECORD 


*****  * * * ***  * **  ***  * * ***  * *********  * * * ♦ 3jC * * * ********  ****  V **  ******  * *****  £ * * **  >jc  * **  * V 


* WORD  * FORMAT  * DESCRIPTION 

* * CODE  * 


*************  * *********  * *****  ***$  # *****  ** 


************************************ 


* CARD  SEQUENCE  NUMBER 

* NOT  USED 

* NOT  USED 

* AIRBASE  EVENT  NAME  - COPIED  FROM  PMT  GROUP  CARD 


* 7 * 16  * COURSE  NAME 


* PERSONNEL  TYPE 

* RATIO 

* TIME  LOST 

* A B NUMBER 

* TIME 

* PMT  NUMBER 


********  *♦♦♦♦*****♦** *****************  ***  ********************  ***************** 


Section  1.9 


COMMON  VARIABLE  CROSS  REFERENCE  TABU: 


The  table  on  the  following  pages  shows  how  each  subr 
common  variable.  The  subroutine  names  are  printed  across  the 
and  the  variable  names  down  the  left  side. 


CROSS  REFERENCE  SUMMARY  C***************-**************  PHASt.l  ***+*************************** 


CROSS  REFERENCE  SUHHARY  C*****************************  PHASE l ******************************* 


CROSS  REFERENCE  SUMMARY  C*******************«*********  PHACEl  ******************************* 
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Section  1.10 
INITIALIZATION  FILM 


This  file  is  read  by  subroutine  RKADTB  from  FORTRAN  logical  unit  9. 

It  is  a formatted  file  that  contains  card  images,  and  is  used  to  initialize  the 
following  common  blocks:  ICNAME,  TABLES,  DD1N,  and  DBD.  Normally,  any  changes 
to  the  values  on  this  file  would  be  accompanied  with  program  modifications. 


Four  tables  are  contained  on  this  file,  one  to  initialize  each  common 
block.  The  contents  of  each  of  these  tables  are  summarized  below.  For  a detailed 
description  of  the  values  on  this  file,  refer  to  the  descriptions  of  the  common 

blocks  that  they  initialize.  A listing  of  this  file  will  be  provided  with  the 
program  listings. 


TABLE  1 (Initializes  common  ICNAME) 

This  table  contains  the  card  names,  which  are  used 
to  identify  the  input  cards,  and  the  internal  block 
numbers  for  the  data  contained  on  those  cards. 

TABLE  2 (Initializes  common  TABLES) 

This  table  contains  the  function  names  to  be  coded 
on  the  input  cards . 

TABLE  3 (Initializes  common  DDIN) 

This  table  contains  a description  of  each  input  card. 
This  includes  the  number  of  character  fields  on  the 
card,  the  number  of  numeric  fields,  and  the  range  of 
acceptable  values  for  each  numeric  field. 

TABLE  4 (Initializes  common  DBD) 

This  table  contains  a description  of  the  internal  data 
Mocks  used  to  store  the  inputs.  This  description  is 
used  by  the  program  to  locate  and  replace  character  name 
references  with  the  proper  integer  code. 


Section  1 .11 
OUTPUT  1'ILC  DESCRIPTION 

The  following  tables  show  the  contents  of  the  output  file  from  TRAM 
phase  1.  T!i is  is  an  unformatted  file  that  is  written  onto  FORTRAN  logical  unit 
10  for  passage  to  phase  2.  The  first  table  summarizes  the  records  that  are  con- 
tained on  the  file,  and  their  order.  Other  tables  follow,  which  give  a detailed 
description  of  those  records  that  contain  more  than  one  item. 


■P-Wr  Ji-J 


• — ••  • - 


**♦♦+<•**  # **#*  *•  <-  $ # $ v*  * * * * -i  >}•  **  + * * ^ v >;•»;•£❖  * ^ * t z >> .+  #* * >! . 


•V  * * £ s»-  * s!  v y,-  *.  * t ?:  if  * 

j; 


♦ UNIT  TEN  F-  1 L L DESCRIPTION 

# v 

*>F***3js**  *$*$*  * $$$  *-+*  y * **■***:'.■  *#**■>** ❖ * -.‘  # ?$$*«£#*$ 


$ H 

* THIS  UNFORMATTED  (BINARY  ) FILE  CONTAINS  Tut  FOLLOWING  RlCCKDS  * 

* >:• 

❖ $• 

- NUMBER  OF  AIR  BASES  * 

* - AIR  CASE  Names  -r 

* - NUMBER  OF  COURSES  * 

* - COURSE  NAMLS  * 

v - NUMBER  OF  GENERATING  FUNCTIONS  * 

* - GENERATING  FUNCTION  NAMES  « 

* - NUMBER  OF  PROCESSING  SLOCKS 

V - PROCESSING  BLOCK  NAMES  $ 

* - NUMBER  OF  PROCESSING  BLOCKS  * 

* - PROCESSING  BLOCK  NUMBERS  * 

v ~ NUMBER  OF  RESOURCES  * 

* - RESOURCE  NAMES  * 

* - NUMBER  OF  RESOURCE  UTILIZATION  BLOCKS 
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Section  1.12 
PHASE  1 ERROR  MESSAGES 

ABOVE  CARO  IS  OUT  0!-  S*  QUINCE. 

A card  which  requires  a header  card  to  precede  it,  was  encountered 
before  the  header  card.  (From  INPUT) 

ERROR  AT  CARD  NUMBER  XX,  BLOCK  NUMBER  SYNCHRONIZED  TO  IS  INVALID  - YY 

A processing  block  card  specifics  a synchronize  or  correlate  reference 
to  another  block  number  which  docs  not  exist  in  the  specified  course. 
The  card  sequence  number  of  the  error  is  given  by  XX,  and  the  invalid 
block  number  is  given  by  YY.  (From  PR0CB2) 

ERROR  AT  CARD  NUMBER  XX,  INVALID  TRANSFER  BLOCK  NUMBER  - YY 

The  processing  block  specified  by  card  number  XX  specifies  a transfer 
from  a processing  block  which  was  never  defined  within  that  course. 

The  invalid  block  number  is  given  by  YY.  (From  PR0CB2) 

ERROR  IN  SUBROUTINE  IPLOT  - INSUFFICIENT  STORAGE  AVAILABLE  TO  DO  BLOCK  DIAGRAM 
PLOT 

The  quantity  of  inputs  was  great  enough  so  that  there  is  not  enough 
storage  left  for  the  plot  routines  work  areas.  The  program  will  con- 
tinue, but  no  plot  will  be  produced.  (From  IPLOT) 

ERROR  IN  SUBROUTINE  PLOTB  - BLOCK  NUMBER  XX  WAS  ENCOUNTERED  BEFORE  ANY  BLOCK 
SPECIFYING  A TRANSFER  FROM  IT 

The  processing  blocks  are  out  of  sequence.  The  position  of  each 
processing  block  is  specified  as  an  offset  from  the  block  to  the 
right  of  it  (toward  graduation).  Therefore,  each  time  a processing 
block  is  specified,  another  block  must  have  already  specified  a 
transfer  from  it.  (From  PLO'I'B)  . 
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ERROR  IN  SUBROUT i ...  PLOlb  - INSUFFICl  ENT  WORKING  STORAGE  AVAILABLE 
r LOW  ARROWS  WI1.I.  BE  OMITTED 


The  course  is  structured  so  that  many  processing  blocks  specify 
transfers  from  block  numbers  which  arc  not  defined.  lliis  message 
is  printed  when  the  plot  routine  runs  out  of  room  to  store  the  ref- 
erences until  they  are  defined.  Usually  the  processing  blocks  can 
be  specified  in  a different  order  to  reduce  the  number  of  such  ref- 
erences, but  if  no  , the  program  will  have  to  be  recompiled  to  make 
storage  available,  (from  PEOTB) 
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error  ON  CARD  NUMBER  XX,  BLOCK  NUMBER  VY  HAS  BEEN  PREVIOUSLY  DEFINED 

Two  processing  blocks  with  the  same  number  have  been  defined  within 
the  same  course.  O‘rom  PR00B1) 

ERROR  ON  CARD  NUMBER  XX,  DATA  BLOCK  NAME  PREVIOUSLY  DEFINED  - YY 

Card  number  XX  attempts  to  define  a data  block  with  the  name  YY,  but 
the  same  name  has  already  been  used  for  another  block.  (From  NAME1) 

ERROR  ON  CARD  NUMBER  XX,  INVALID  REFERENCE  - YY 

The  card  has  referenced  another  data  block  which  was  never  defined. 

The  undefined  block  name  or  processing  block  number  is  given  by  YY. 
(From  REPLC1,  REPLC2) 

INSUFFICIENT  STORAGE  AVAILABLE  FOR  INPUTS 

The  amount  of  input  data  is  greater  than  the  amount  the  program  can 
store.  The  program  will  have  to  be  re-compiled  with  more  storage 
made  available  to  it.  (From  INPUT) 

INSUFFICIENT  STORAGE  AVAILABLE  TO  CONSTRUCT  BLOCK  NAME  TABLE 

The  quantity  of  input  data  is  large  enough  so  that  there  is  not  enough 
storage  available  to  do  the  cross  referencing  of  data  block  names. 

The  program  will  have  to  be  re-compiled  to  make  more  storage  available. 
(From  NAMEl , MAIN) 
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INVALID  CARD  N AMI:  ON  ABOVE  CARD 

This  message  appears  in  the  input  card  listing.  The  card  printed 
immediately  above  the  message  has  a card  name  which  is  not  recog- 
nized by  the  program  (card  name  field  is  columns  1-10.)  (Prom  INPUT) 


INVALID  VALUE  IN  FIELD  NUMBER  XX 

The  card  printed  immediately  above  this  error  message  contains  a numeric 
value  which  is  outside  the  range  allowed  for  that  value.  The  field 
number  XX,  refers  to  the  field  number  marking  at  the  top  of  the  input 
card  listing.  (From  TJiST) 


RESOURCE  NAME  MUST  NOT  BE  BLANK 

The  RUDB  card  which  is  printed  above  this  error  message  does  not  have 
a resource  name  specified.  (From  INPUT) 


Section  2.0 
TRAM  PHASE  2 


This  section  provides  flowcharts,  record  formats,  common  block  de- 
scription, subroutine  description  and  a symbol  cross  reference  for  Phase  2. 
This  information  is  intended  to  supplement  the  description  included  in  Tech- 
nical Memorandum  SAT-5,  TRAM  User's  Manual  with  which  the  reader  is  assumed 
to  be  familiar. 
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.PROCESSED. 


RETURN 


CYCLE  THRU 
LEFT  PROC 
BLOCK 
NUMBERS 


CYCLE  THRU 
LEFT  PROC 
BLOCK 
POINTERS 


/ ALL  \ 
LEFT  PROC 
BLOCK  POINTERS 
. PROCESSED  ^ 


/ ALL  \ 

LEFT  PROC  * 

BLOCK  NUMBERS 

PROCESSED  . 


CYCLE  THRU 
TASK  NUMBERS 


^ ALL  \ 
TASK  NUMBERS 
PROCESSED 


SUBSTITUTE 
POINTER  FOR 
NUMBER 


PLACE  A RIGHT 
POINTER  IN  PROC 
BLOCK  POINTED 
AT  BY  THIS  LEFT 
POINTER 


SUBSTITUTE 
POINTER  FOR 
NUMBER 


CYCLE  THRU 
ALL  RUB 
BLOCKS 


ALL'v.. 

RUB  BLOCKS 
PROCESSED 


RETURN 


CYCLE  THRU 
RUDB  NUMBERS 
IN  THIS  RUB 


BLOCK 


^ ALL 
RUDB  NUMBERS 
PROCESSED 


SUBSTITUTE 
RUDB  POINTER 
FOR  RUDB 
NUMBER 


CYCLE  THRU 
ALL  RUDB 
BLOCKS 


ALL 

RUDB  BLOCKS 
PROCESSED 


RETURN 


SUBSTITUTE 
RUB  POINTER 
FOR  RUB 
NUMBER 


SUBSTITUTE 
RUDB  POINTER 
FOR  RUDB 
NUMBER 


PROC  BLOCKS 
PROCESSED 


RETURN 


^ PROC  N 
block  member 

OF  A SYN  OR 
. CORR  LOOP  . 


CONTAINS  MORE 
THAN  ONE 
\ BLOCK  ^ 


COMPLETED 


THERE  ANOTHER 
BLOCK  IN  THE 
w LOOP 


LOOP  TOO 
LONG 


PROCLP 


CYCLE  THRU 
ALL  GRADUATION 
BLOCKS 


RETURN 


CYCLE  THRU 
ALL  TRACKS 
BEGINNING  AT 
THIS  GRADUATION 
BLOCK 


ERROR 

MESSAGE 


CYCLE  THRU 
ALL  RUDB 
BLOCKS 


<^ALL  > 
RUDB  BLOCKS 
PROCESSED 


RETURN 


CYCLE  THRU  ALL 
RUDB-RUB  PATHS 
STARTING  AT 
THIS  RUDB 


" ALL  ^ 
PATHS 
EXAMINED 


^ / PATH 
CONTAINS  TOO 
MANY  RUDB-RUB 
v BLOCKS 


GIVE 

ERROR 

MESSAGE 


mi ■ — ||P '■■'■ill  i * x - 


SORTLK 


CYCLE  THRU 

ALLPROC 

BLOCKS 


ALL  ^ 
V*  PROC  BLOCKS 
C-v  PROCESSED 


RETURN 


SORT  LEFT  POINTERS, 
PRIORITY  AND  PER- 
CENTAGES BY 
PRIORITY 


CORSOT 


WRITE 
COURSE 
DESCRIPTIONS 
FOR  PHASE  3 


RETURN 


CYCLE  THRU 
ALL  TRACKS 
OF  THIS 
COURSE 


^ ALL  N 
TRACKS 
PROCESSED 


RETURN  > 
ONGEST  TRACK 
^DURATION  J 


CALCULATE 
TRACK  DURATION 
BY  SUMMING  THE 
DURATION  OF  EACH 
PROC  BLOCK  IN 
TRACK 


DISTAC 


CYCLE  THRU 
ALL  DELIVERY 
PARAMETERS 
FOR  THIS  AIR 
BASE 


/ ALL  ^ 
s"  DELIVERIES 
s>,  PROCESSED 


RETURN 


ADD  NUMBER 
OF  PLANES 
DELIVERED  TO  THE 
CORRESPONDING 
BUCKETS 


DISTCW 


HISTORY 
CARDS 
HAVE  NOT 
BEEN  IMPLEMENTED 


RETURN 


CYCLE  THRU 
EVENTS  FOR 
THIS  AIR  BASE 


ALL  V 
EVENTS 
PROCESSED 


RETURN 


USE  CREW 
RATIO  AND 
DISTRIBUTION 
OF  AIRCRAFT 
TO  CALCULATE 
MINIMUM  CREW 


CYCLE  THRU 
AIR  BASE 
BUCKETS 


BUCKETS 

PROCESSED 


CYCLE  THRU 

PERSONNEL 

TYPES 


PERSONNEL 


PROCESSED 


CALCULATE 

# ATTRITTED, 

# REPLACE,  AND 

# ADDITIONAL 
PERSONNEL 
REQUIRED 


CYCLE  THRU  CCTS 
PARAMETERS  FOR 
COURSES  FOR  THIS 
AIR  BASE,  BUCKET 
AND  PERSONNEL 
TYPE 


COURSES 

PROCESSED 


GENERATE 
DEMANDS  FOR 
THIS  PERSONNEL 
TYPE  AND  FROM 
THIS  CCTS  COURSE 


CYCLE THRU 

AIR  BASE 
EVENTS 
F OR  THIS 
AIR  BASE 


' ALl  ^ 
EVENTS 
PROCESSED 


CYCLE  THRU  PMT 
GROUPS  FOR 
THIS  AIR  BASE 


CALCULATE  HOURS 
IN  EXCESSING 
OF  ALERT  REQUIRE 
MENTS  FOR  EACH 
PERSONNEL  TYPE 


ALL 

PMT  COURSES 
PROCESSED 


GIVE 

ERROR 

MESSAGE 


CYCLE  THRU 
ALL  PMT  PERIODS 
FOR  THIS  PMT 
GROUP 


CYCLE  THRU 

PERSONNEL 

TYPE 


ALL  ^ 
PERSONNEL 
TYPE 

PROCESSED 


DETERMINE 
NUMBER  OF 
PEOPLE  TO  BE 
TRAINEDPf  R BUCKET 
AND  AMOUNT  Of  TIME 
LOST 


CYCLE  THRU 
ALL  PMT  COURSES 
FOR  THIS  PERSONNEL 
TYPE 


ALL 

PMT  GROUPS 
PROCESSED 


CREATE  PMT 
DEMANDS  FOR 
EACH  BUCKET 
IN  PERIOD 


REDUCE  THE 
NUMBER  OF 
HOURS  AVAILABLE 
FOR  PMT  TRAINING 


RECOVR 


CYCLE  THRU 
AIR  BASE 
BUCKETS 


BUCKETS 

PROCESSED 


RETURN 


CREATE  COPILOT 
SOURCE  FROM 
THE  NUMBER  OF 
COPILOTS 
RECOVERABLE 
FOR  THIS  BUCKET 


PRTCRS 


WRITE  THE 
NUMBER  OF 
STUDENTS/ 


COURSE 


RETURN 


RESSOR 


SOURIN 


READ  AND 
EXAMINE 
SOURCE 
CARDS 


RESRIN 


READ  AND 
EXAMINE 
RESOURCE 
CARDS 


CENSOR 


GENERATE 

SOURCE 

FILE 


GENRES 


GENERATE 

RESOURCE 


RETURN 


READ  RESOURCE 
CARDS 


DETERMINE 
THE  NUMBER 
OF  UNIQUE 
RESOURCES 


DETERMINE 
BUCKET  SIZE 
FOR  EACH 
RESOURCE 


PASS  BUCKET 
SIZES  TO 
STEPS  3 AND  - 


RE  TURN 


CYCLE  THRU 

EACH 

RESOURCE 


RESOURCES 

PROCESSED 


RETURN 


CYCLE  THRU 
ALL  BUCKETS 
FOR  THIS 
RESOURCE 


BUCKETS 


INITIALLY  A 
QUANTITY  OF 
ZERO  FOR  THIS 
RESOURCE  AND 
BUCKET  IS 
_ AVAILABLE 


CYCLE  THRU 
ALL  RESOUCE 
CARDS  FOR 
THIS  RESOURCE 


WRITE 


QUANTITY  OF 
THIS  RESOURCE 
FOR  THIS 
BUCKET 


RESOURCE 

CARDS 

PROCESSED 


ACCUMULATE  THE 
QUANTITY  OF  THIS 
RESOURCE  FROM 
THE  QUANTITY 
SPECIFIED  ON  THIS 
RESOURCE  CARD 
FOR  THIS  BUCKET 


NUMBER 


DETERMINE 
TYPE  OF 
NUMBER 
TO  BE 
RETURNED 


DETERMINE 

NUMBER 

USING 

NAME 


RETURN 


DETERMINE 
TYPE  OF 
NAME 
REQUIRED 


DETERMINE 

NAME 

USING  CODE 
NUMBER 


RETURN 


FIGURE  C.I 


**************** 


demand  record 


* WORD  * DESCRIPTION 


^ ~ ~ * r 3 A U W ^ 




TIME 

UUANTITY 

type  of  personnel 


TYPE  OF  PERSONNEL  1-PILOTS  * 

2- COPILOTS  * 

3- 0S0S  * 

„ 4-DSOS 

COURSE  NUMBER 

DE^Sd  !ASE  NU"BE«  * * BUCKET  NO.  ; 

DEMAND  TYPE  1-CCTS  BECAUSE  OF  DELIVERIES  * 

2-CCTS  BECAUSE  OF  ATTRITION  * 


3-PMT 


* * * 

* l * Tint  * 

* 2 * SCJRCfc  NUMBLR  * 

* 3 * UUANT ITY  * 


******************************************** ****** *************** 


FIGURE  C.3 


I*****************************************************,********* 


WORD  * 


1 * TIME 

2 * RESOURCE  NUMBER 

3 ♦ QUANT  ITY 


FIGURE  D.l 


* ITYPEIII  * TYPt  OF  NAME 

* I FIRST ( i ) ♦ INDEX  TU  WHERE  FIRST  NAME  OF  TYPE  I IS  LOCATED 

* NUM(I)  * NUMBER  OF  NAMES  OF  TYPE  I 

* NAMES ( 1 1 J ) * POOL  OF  NAMES 

* I UNIT  * UNIT  NAMES  ARE  READ  ON 

* JUNIT  * UNIT  NAMES  ARE  WRITTEN  ONTO 

* MAXNUM  ♦ MAXIMUM  NUMBER  OF  NAMES 

* NTYPE  * NUMBER  OF  NAME  TYPES 


* * 


FIGURE  0.2 


***************************************************************** 

* 

COMMON  BLOCK  - DUMMY  CCOURSES)  * 

* * 
***************************************************************** 
* * * 

* VARIABLE  * DESCRIPTION  ♦ 

* * * 

***********************  ****************************************** 
* * * 

* NCOURS  * NUMBER  CF  COURSES  * 

* MXCOUR  * MAXIMUM  NUMBER  OF  COURSES  * 

* IGRAD(i)  * GRADUATION  BLOCK  FOR  COURSE  I * 

* 1CTYPEC1)  * TYPE  OF  COURSE  I * 

* IPTYPE(I)  * PERSONNEL  TYPE  FOR  COURSE  1 * 

* 1 PRIOR  Cl)  * PR10RTY  OF  COURSE  I * 

* MX  SIZE ( I ) * MAXIMUM  SIZE  OF  COURSE  I * 

* IPEROO(l)  ♦ PERIOD  OF  COURSE  I * 

* IEGRADU)  * EARLIEST  GRADUATION  DATE  FOR  COURSE  1 * 

* IB LOCK ( 1 ) * LOCATION  OF  FIRST  PRuC,  TASK,  RUB,  AND  RUOB  BLOCK  * 

* NBLOCK ( 1 ) * NUMBER  OF  PROC,  TASK,  RUE,  AND  RUOB  BLOCKS  * 

* LBKIN(I)  * LENGTH  OF  EACH  BLOCK  TYPE  AS  READ  FROM  STEPl  * 

* LBKOUT ( 1 ) * LENGTH  OF  EACH  BLOCK  TYPE  AS  PASSED  TO  S1EP3  * 

* I A VAIL  * POINTS  TO  NEXT  AVAILABLE  WORD  IN  STORAGE  POOL  * 

* NWORDS  * NUMBER  OF  WORDS  REMAINING  IN  STORAGE  POOL  * 

* 1 WORDS ( 1 ) * POOL  OF  STORAGE  FOR  BLOCKS  * 

* ERROR  * TRUE  IFF  AN  ERROR  OCCURRED  * 

* * * 

***************************************************************** 
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FIGURE  0.3 


* 

♦ 

* 

************ 

* 

* VARIABLE 

* 

************ 

* 


COMMON  BLOCK  *•  DUMMY  (AIR  BASES) 

*************************************************** 

DESCRIPTION 

*************************************************** 


* 


* MAb 

* MABH 

* MABE 

* M ABC 

* MABP 

* MABPC 

* MABO 

* M8UCKT 

* PPATTR 

* CPATTR 

* OPATTR 

* DPATTR 

* IPATTD 

* ICATTD 

* IOATTO 

* IOATTO 

* PCRECY 

* ICUYR 

* IBUCKT 

* WKSBKT 

* HRSCU 

* HRBUCK 

* MX BUCK 

* NAB 

* IN  VAC l I) 

* INVPII) 

* INVC(I) 

* INVO(I) 

* INVDUI 

* NABH 

* NABE 

* IABEK  1) 

* I ABEN ( I ) 

* IOATEE (I ) 

* CREWR(I) 

* ALERTR ( I ) 

* HRCRBK(I) 

* NABC 

* IABCK  I) 

* IABCN(I) 

* IDATEC(I) 

* ICOURC(I) 

* IPERCII) 

* PCC(I) 

* 

************ 


MAXIMUM  NUMBER  OF  AIR  BASES 
MAXIMUM  NUMBER  OF  HISTORY  CARDS 
MAXIMUM  NUMBER  OF  AIR  BASE  EVENTS 
MAXIMUM  NUMBER  OF  CC1S  COURSES 
MAXIMUM  NUMBER  OF  PMT  GROUPS 
MAXIMUM  NUMBER  OF  PMT  COURSES 
MAXIMUM  NUMBER  UF  DELIVERY  CARDS 
MAXIMUM  NUMBER  OF  AIR  BASE  BUCKETS 

* PILOTS  ATTRITION  PER  BUCKET 

X COPILOTS  ATTRITION  PER  BUCKET 
% USOS  ATTRITION  PER  BUCKET 

* DSOS  ATTRITION  PER  BUCKET 
PILOTS  ATTRITION  DELAY  TIME 
COPILOTS  ATTRITION  DELAY  TIME 
OSOS  ATTRITION  DELAY  TIME 
DSOS  ATTRITION  DELAY  TIME 

% COPILOTS  RECOVERABLE 
CALENDAR  UNITS  PER  YEAR 
CALENDAR  UNITS  PER  BXKET 
WEEKS  PER  BUCKET 
HOURS  PER  CALENDAR  UNIT 
HOURS  PER  bUCKET 

BUCKET  ASSOCIATED  WITH  MAXIMUM  SIMULATION  TIME 
NUMBER  UF  AIR  BASES 

INITIAL  AIR  CRAFT  INVENTORY  FOR  AIR  BASE  I 

INITIAL  PILOT  INVENTORY  FOR  AIR  BASE  I 1 

INITIAL  COPILOT  INVENTORY  FOR  AIR  BASE  1 1 

INITIAL  OSO  INVENTORY  FOR  AIR  BASE  I 1 

INITIAL  DSO  INVENTORY  FOR  AIR  BASE  I 

NUMBER  OF  AIR  BASE  HISTORY  CARDS 

NUMBER  OF  AIR  BASE  EVENTS 

INDEX  OF  FIRST  AIR  BASE  EVENT  FOR  AIR  BASE  I 
NUMBER  OF  AIR  BASE  EVENTS  FOR  AIR  bASE  I 
DATE  OF  AIR  BASE  EVENT  UN  bUCKETS) 

CREW  RATIO  FOR  AIR  BASE  EVENT 

ALERT  RATIO  FOR  AIR  tsASE  EVENT 

HOURS/CREW/BUCKET  FUR  AIR  BASE  EVENT 

NUMBER  OF  CCTS  COURSES 

INDEX  OF  FIRST  CCTS  FOR  AIR  bASE  I 

NUMBER  UF  CCTS  FOR  AIR  BASE  1 

DATE  UF  CCTS  (IN  BUCKETS) 

COURSE  NUMBER 
PERSONNEL  TYPE 

PER  CENTAGE  OF  PEOPLE  TO  COME  FROM  THIS  COURSE 

*************************************************** 
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FIGURE  D.3  (CONTINUED) 


COMMON  BLOCK  - 


**************** 
* 

DUMMY  (AIR  bASES)  * 


*********************** 

* variable  * description  J 


* 

* NAbP  * 

* IABPK  I)  * 

* I AdPN ( I } * 

* IDATEP  (I  I * 

* IPMT ( I ) * 

* IPERODd  | * 

* NAbPC  * 

* IABPCHI)  * 

* I AbPCN ( I ) * 

* IDATPCd  ) * 

* JPMT(  I ) * 

* ICOUPC(I)  * 

* IPERTP(I)  * 

* PCPCd)  * 

* ITL(I)  * 

* NABD  * 

* IABDI(I)  ♦ 

* IABDN(I)  * 

* I DATED  (I  ) * 


NUMBER  OF  PMT  GROUPS 

INDEX  OF  FIR^T  PMT  GROUP  FOR  AIR  BASE  I 
NUMBER  OF  FIRST  PMT  GROUP  FOR  AIR  BASE  1 
DATE  OF  PMT  GROUP  (IN  BUCKETS) 

PMT  NUMBER 
PHI  PER IOO 

NUMbER  OF  PMT  COURSES 

INDEX  OF  FIRST  PMT  COURSES  FOR  AIR  BASE  I 
NUMbER  OF  PMT  COURSES  FOR  AIR  BASE  I 

date  of  pmt  course  ( in  buckets) 

NUMbER  CiF  PMT  FOR  PMT  LOUKSE 
COURSE  NUMBER 

PERSONNEL  TYPE  FOR  PMT  COURSE 

PER  CENT  OF  PERSONNEL  TU  GO  TO  THIS  PMT  COURSE 

DUE  T°  TRAVtL  F0R  PNT  BOURSE 
NUMBER  OF  AIR  CRAFT  DELIVERIES 

index  of  first  delivery  for  air  base  i 

NUMBER  OF  DELIVERY  CARDS  FOR  AIR  BASE  1 
DATE  OF  DELIVERY 


* IUANTDII)  * QUANTITY  DELI VERIED 


* P(  I) 

* Cd) 

* 0(1) 

* D(i) 

* IAC(I) 

* CREMII) 

* PH ( I ) 

* CH(I) 

* OH ( I ) 

* DH(I) 

* CRECY( I) 

* 1 AB 

* ERROR 

* NOPRNT  * 

* STUDS ( 1 » J ) * 

* NCORS  * 

* NYEARS  * 

* * 
******** 


I 


NUMbER  QF  PILOTS  FOR  BUCKET  I 
NUMBER  UF  COPILOTS  FOR  BUCKET 
NUMbER  OF  OSOS  FOR  BUCKET  1 
NUMbER  OF  DSOS  FOR  BUCKET  I 
NUMBER  OF  AIR  CRAFT  FOR  BUCKET  I 
MINIMUM  NUMBER  OF  CREWS  FOR  BUCKET  I 
rnn?'  HCJUR^  AVAILABLE  FOR  PMT  FOR  BUCKET  I 
n?PIi°T  H0URS  AVAILABLE  FOR  PMT  FOR  bUCKET  I 
OSO  HOURS  AVAILABLE  FOR  PMT  FOR  bUCKET  I 
DSO  HOURS  AVAILABLE  FOR  PMT  FOR  BUCKET  I 
"7  COPILOTS  RECOVERABLE  FCR  BUCKET  I 
NUMBER  OF  AIR  BASE  BEING  PROCESSED 

* TRUE  IFF  ERROR  OCCURRED 

* IRU^  IFF  OPTION  REPORT  IS  NOT  TO  BE  PRINTED 
J OF  STUDENTS  SENT  TO  COURSE  J DURING  YEAR  I 
TOTAL  NUMbER  OF  COURSES 
NUMbER  OF  YEARS  OF  SIMULATION  TIME 


* 

****************  *********** 
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FIGURE  D.4 


***************************************************************** 
* * 

♦ COMMON  BLOCK-  CONTKL  ( STEP2)  * 


**********  *******  ****  ***  *********  *******  *********  **************** 
♦ ♦ * 

♦ VARIABLE  ♦ DESCRIPTION  * 

* * * 

***************************************************************** 
♦ * * 

♦ MXTIME  ♦ MAXIMUM  SIMULATION  TIME  ♦ 

* ♦ * 

****************  ******4***  **********************************  ****** 


■■  -ii. 


* ICRECT  * # CALENDAR  UMTS  COPILOTS  ARE  AVAILABLE  * 

* I C BUCK  * # OP  BUCKETS  RECOVERED  COPILOTS  ARE  AVAILABLE  * 

* * * 

***************************************************************** 
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FIGURE  0.6 


***************************************************************** 
* * 

* COMMON  BLOCK  -MAXLEN  * 

* * 
.It**************************************************************** 


* VARIABLE  * DESCRIPTION  * 

♦ ♦ * 

******** I.******************************************************** 
* * * 

♦ MAXTIM(l)  * DURATION  OF  LONGEST  TRACK  IN  COURSE  1 * 

* ♦ * 

***************************************************************** 


* # 


FIGURE  U, 7 


C U M M 0 N BLOCK  - 

* 

***********************  **♦******♦*♦**♦♦♦*♦*  ♦♦♦♦♦♦♦♦♦♦♦♦******^**<[ 
* * 


VARIABLE 


* 

* 


DESCRIPTI  ON 


************************************ 


* * 

* IRESKi)  ♦ 

* NRESm  ♦ 

* IFUNCCI)  * 

* IT  1(  I ) * 

* I TN(1 J * 

* NPARM4 I J * 

* IPARM1 (I ) * 

* IPARM2U)  * 

* I PARM3 ( I ) ♦ 

* I P ARM4 ( I ) ♦ 

* I P ARM5  ( 1 ) * 

* LBUCKT(l)  * 

* NRESR  * 

* MXRES  * 

* MXRESC  * 

* ERROR  * 

* * 


iNOtX  TO  FIRST  RESOURCE  CARE  FOR  RESOURCE 

NUMBER  OF  RESOURCE  CARDS  FOR  RESOURCE  1 

GENERATING  FUNCTION 

BEGINNING  OF  RESOURCE  AVAiLABLITY 

END  OF  RESOURCE  AVAILABLITY 

NUMBER  OF  PARAMETERS 

PARAMETER! 

PAR AMETER2 
PARAMETERS 
PARAMETER* 

parameters 

BUCKET  SIZE 

TOTAL  NUMBER  OF  RESOURCES 
MAXIMUM  NUMBER  OF  RESOURCES 
MAXIMUM  NUMBER  OF  RESOURCE  CARDS 
TRUE  IFF  AN  ERROR  OCCURRED 


* 

♦ 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 


****************  *********************************************##i>* 


FIGURE  D.b 


***************************************************************** 
* * 

* COMMON  BLOCK-SOURCE  * 

* * 

***************************************************************** 
* * * 

* VARIABLE  * DESCRIPTION  * 

* * * 

***************************************************************** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


ISQRK  I) 
NSOR(I) 
IFUNCU) 
ITIU  ) 

I TN ( I ) 
NPARM ( 1 ) 
IPARM14I ) 
I P ARM2 ( 1 ) 
I PARM3 ( 1 ) 
IPARM4U) 
I P ARMS ( I ) 
LBUCKT (I ) 
NS  OUR 
MXSOR 
MXSORC 
ERROR 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


INDEX  TO  FIRST  SOURCE  CARD  FOR  SOURCE  i 


NUMBER  OF  SOURCE  CARDS  FOR  SOURCE 

GENERATING  FUNCTION 

BEGINNING  OF  SOURCE  AVAILABLITY 

END  OF  SOURCE  AVAILABILITY 

NUMBER  OF  PARAMETERS 

PAR  AMETERI 

PARAMETER* 

PARAMETERS 

parameters 

PARAMETERS 
BUCKET  SIZE 

TOTAL  NUMBER  OF  SOURCES 
MAXIMUM  NUMBER  OF  SOURCES 
MAXIMUM  NUMBER  OF  SOURCE  CARDS 
TRUE  IFF  AN  ERROR  OCCURRED 


1 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


******************************************************* ^ ********* 
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FIGURE  D.V 


***************************************************************** 
* * 

* COMMON  SLOCK-  CQNTRL  (S1EP3)  * 


*********************************  ******************************** 
* * ♦ 


* * * 

* VARIABLE  * DESCRIPTION  * 

* * * 

***************************************************************** 
* ♦ * 

* ICLOCK  * SIMULATION  TIME  WHEN  CLOCK  WAS  LAST  CALLED  * 

* * * 

********************************** ****** ************************* 


<4  . h * 


FIGURE  D*  1C 


* VARIABLE  * 


* NRES  * NUMBER  OF  RESOURCES 

* IBUCKT  (I  ) * RESOURCE  BUCKET  SUES 


FIGURE  D.ll 


I 1 

|L 


Pi' 

i’l 

¥'  i 

E>,  f 


***************************************************************** 
* * 

* COMMON  BLOCK  - RSUUftC  ♦ 

* * 
***************************************************************** 
* * * 


♦ VARIABLE:  ♦ DESCRIPTION 


* * ♦ 
*+***+***++*++***+*+++*+++*++++*+**+*+*++++++++++++++++++++ mm 

jl. 


I AVAIL 
NA VAIL 
MA VAIL 
I T IME (1) 
IOUANT ( I ) 
LINMI  ) 

I FIRST ( I ) 
I L ASK  1) 
ITIMEL(I) 
I T I ME  H ( 1 ) 


* 

♦ 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 


POINTS  TO  FIRST  AVAILABLE  CELL 
NUMBER  OF  AVAILABLE  CELLS 

MINIMUM  OF  CELLS  TO  BE  RESERVED  FOR  FUTURE  ADDS 
TIME  IN  CELL  1 
WUANTITY  IN  CELL  I 
LINK  IN  CELL  I 

POINTS  TO  BEGINNING  OF  LIST  FOR  RESOURCE  I 
POINTS  TO  END  OF  LIST  FOR  RESOURCE  I 
EARLIEST  TIME  IN  CORE  FOR  RESOURCE  1 
LATEST  TIME  IN  CORE  FUR  RESOURCE  I 


* 

* 

* 

* 

* 

* 

4 

* 

♦ 

* 

* 

* 


***************************************************************** 


I. 


u 


1 


. 

1J 

; 
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FIGURE  D. 12 


!. 


0****+m**t**  ****************************************  **********' 

l 

* 

* CUMMUN  BLOCK  -SQR  ' 

********************************  ******  *******  *********** 

* * 

* VARIABLE  * DESCRIPTION 

* * 

**************************************************************** 
♦ * 

* NS UR  * NUMBER  OF  SUURCfcS 

* IbJCKKI)  * SOURCE  BUCKET  SIZES 

* ICU(I)  * LENGTH  OF  TIME  SOURCE  IS  AVAILABLE  (LU) 

* * 

**************************************** ********* *************** 


I 


ID 
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FIGURE  0.13 


*** 

* 

* 


*************************♦*************' 

COMMON  BLOCK  - SOURSE 


************  ********************* 
* * 

* VARIABLE  * DESCRIPTION 

* * 

************************************* 


* 


*# 


« * 

* I AVAIL  * 

* NA VAIL  * 

* MAVAIL  * 

* iriME(l)  * 
» I QUANT ( I ) * 

* LINK 1 1 ) * 

* IFIRST(I)  * 

* I LAST ( 1 ) * 

* ITlMkL(I)  * 

* ITlMEH(l)  * 


POINTS  TO  FIRST  AVAILABLE  CELL 
NUMBER  OF  AVAILABLE  CELLS 

MINIMUM  OF  CELLS  TO  BE  RESERVED  FOR  FUTURE  AoDS 
TIME  IN  CELL  I 
QUANTITY  IN  CELL  I 
LINK  IN  CELL  1 

POINTS  TO  BEGINNING  OF  LIST  FOR  SOURCE  1 
POINTS  TO  END  OF  LIST  FOR  SOURCE  I 
EARLIEST  TIME  IN  CURE  FUR  SOURCE  1 
LATEST  TIME  IN  CORE  FOR  SOURCE  I 


* * 

******************************** ******** *******^* *******  ******** 


* 
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FIGURE  D.14 


COMMON  BLOCK  - CBLK 


* VARIABLE 

* 


DESCRIPTION 


* NLOURS 

* IGRAO(I) 

* ICTYPE(I) 

* IPTVPE ( 1 ) 

* IPRIOR(I) 

* MX  SIZE ( I ) 

* IPERODU) 

* IEGRAOU) 

* 

*♦♦*******♦< 


NUMBER  UP  COURSES 
GRADUATION  BLOCK  FOR  COURSE  I 
TYPE  OF  COURSE  1 
PERSONNEL  TYPE  FOR  COURSE  I 
PRIORTY  OF  COURSE  I 
MAXIMUM  SIZE  OF  COURSE  I 

period  of  course  i 

EARLIEST  GRADUATION  DAlt  FOR  COURSE 
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FIGURt  D.lb 


**************************************************************** 

* 

* COMMON  BLOCK  - BLKS 

* 

***************************************************************4 
* * 

* VARIABLE  * DESCRIPTION 

* * 

*** ***************************************************** ******** 
* * 

♦ I b LOCK  ( I ) * LOCATION  OF  FIRST  PKOC,  TASK  * RUb,  AND  RUDtt  BLOCK 

♦ NB LOCK ( I ) * NUMBER  OF  PROC»  TASK*  RUb*  AND  RUOB  bLOCKS 

♦ Lb  LOCK ( 1 ) * LENGTH  OF  PROC,  TASK,  RUB,  AND  RUOB  BLOCKS 

♦ 1 WORD ( 1 ) ♦ POOL  OF  STORAGE  CONTAINING  ALL  bLOCKS 

♦ ♦ 

**************************************************** ****4*4*444*, 


FIGURE  0.16 


***************************************************************** 
* * 

* COMMON  BLOCK-STACK  * 

* * 

***************************************************************** 
♦ * * 

* VARIABLE  * DESCRIPTION  * 

* * * 

**************************************************  *************** 
* * * 

* NSTACK  * NUMBER  OF  ITEMS  IN  STACK  * 

* MSTACK  * MAXIMUM  NUMBER  GF  ITtMS  A STACK  HULLS  * 

* I STACK  * STACK  * 

* J STACK  * STACK  * 

* * * 

**************************************************  *************** 
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Section  2.3 

DESCRIPTIONS  OF  ROUTINES 


0 

[ 


C*«  ******************************  At I N ******************************* 


C*  * 

C*  SUbRfJUTINl  At  IN  * 
O*  * 
L*  PJRPUSfc  * 
C*  RtAD  AIR  bASL  PARA  Mtl ERS  AND  INITIALIZE  VARlAbLtS.  * 
L*  * 
C*  AJT  hUR/PRUGRAMMLP  * 
C*  JOHN  R.  HtNIb  » 
C*  CAL  SPAN  CORPORATION  * 
C*  2 MAY  1975  * 
L*  * 


C ************************* ** ****** * *****************************  ***** *** 
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c ******* ******* ******  ************  ARbASE  ***************************** 


<,*  ♦ 

C*  SUBROUTINE  ARbASE  * 

C*  * 

C*  PURPOSE  * 

C*  CONTROLS  THL  FLOW  b LTWEEN  SUBROUTINES  THAT  PROCESS  ♦ 

C*  AIR  BASE  INFORMATION.  * 

C*  * 

O SUBROUTINE  ANL  FUNCTION  SUBPROGRAMS  REQUIRED  * 

C*  CORTIM  - CALCULATES  DURATION  Of  LONGEST  TRACK  IN  EACH  CDUkSl  * 

c*  ''IN  - reads  all  air  hase  parameters  ♦ 

C*  t)iS TAC  - CALCULATES  UISTRIDUTION  OF  AIP  CRAFT  ♦ 

C*  JISTCW  - CALCULATES  DISTRIBUTION  OF  CREW  MEMBERS  ♦ 

c*  MNCREW  - DETERMINES  MINIMUM  CREW  ♦ 

C*  CCTS  - CALCULATES  GRAOUATICN  RECU1REMEN1 S * 

C*  PMT  - CALCULATES  PMT  COURSE  DEMANDS  * 

C*  RECUVR  - GENERATES  SODRCE  OF  RECOVERABLE  COPILOTS  * 

C*  PR  TORS  - PRINTS  REPORT  CONTAINING  STUDENT S/COURS E /YEAR  * 

u*  * 

C*  AUTHUK/PROGRAMMER  * 

JOHN  R.  MENIG  * 

C*  CALSPAN  CORPORATION  * 

C*  5 MAY  1975  * 

C*  ♦ 


C** ******  *******************  ******************************************** 


| 

i 1 | 


***************************** 

* 

* 
* 

VA*  1 AttLt  NfcEDFD  WHEN  INPUTTING  N AMk  S • * 

* 

AUTHOR/PRGGR AMM  E.R  * 

JOHN  k.  MEN It  * 

CAL  SPAN  CORPORATION  * 

22  APRIL  !<*/!>  * 


i ******* *******  ******************  BLKN AM 
L* 

^*  BLOCK  DATA 

C* 

C* 

C* 

L* 

C* 

c* 
c* 
c* 
c* 


PURPOSE 

INI r I AL 1 ZE  j 


*************************************************************  ******** 
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C,** ********** ********************  BLK  IN  ***************************** 


c* 

c* 

SUBROUTINE  BLKIN 

* 

c* 

c* 

PURPOSE 

* 

c* 

READS  THE  BLOCKS  NEEDED  TO  DEFINE  COURSES. 

* 

c* 

* 

c* 

AUTHOR/PROGRAMMER 

* 

c* 

JUHN  R.  MENIG 

* 

o* 

CALSPAN  CORPORATION 

* 

c* 

29  APRIL  19  75 

* 

c* 

q** **********  *************************  ********************************* 


q,4******  ************* ************  BLOCK  ********************** *******1 

C*  1 

C*  SUBROUTINE  BLOCK 

C*  ' 

C*  PURPOSE 

C*  RETURNS  THE  CONTENTS  OF  A BLOCK 

c* 

C*  CALLING  SEQUENCE 
L*  CALL  BLOCK!  I ADDRtl  ARRAY) 

C* 

C*  DESCRIPTION  OF  PARAMETERS 

C* 

C*  ♦ EXPLICIT  INPUT  * 

C*  IAODR  - POINTS  AT  BLOCK  WHOS  CONTENTS  IS  DESIRED. 

C* 

C*  * EXPLICIT  OUTPUT  * 

C*  IARRAY  - CONTENTS  OF  BLOCK  ARE  PLACED  IN  THIS  ARRAY. 

C* 

C* 

C*  AUTHOR/ PROGRAMM  ER 

LA  JOHN  R.  MENIG 

C*  CALSPAN  CORPORATION 

C*  24  APRIL  197S 

C* 

0********************  *************  ************************************* 


A 


193 


I,********************************  tQ7 l ******************************* 

C*  * 

C*  SUBROUTINE  CCTS  * 

C*  ♦ 

0*  PURPOSE  * 

C*  DET  tKMINLS  DEMANDS  DUE  TO  DLlIVLKY  Of-  AIR  CRAFT  A NO  * 

C*  ATTRITION.  * 

C*  * 

C*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED  * 

C*  NAME  - FINDS  THE  ALPHANUMERIC  NAME  OF  AIR  &ASE  * 

C*  * 

C*  AUTHOR /PROG  RAMMER  * 

C*  JOHN  R.  MEN 1G  * 

c*  CALSPAN  CORPORATION  * 

C*  30  APRIL  lv7i>  * 

0*  * 
C *************************************  ********************************** 


* 
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* 


1 I 

■ r 


C******* ********* ****************  CLOCK 
C* 

C*  SUBROUTINE 


CLOCK  ***************************** 


CLOCK 


PURPOSE 

UPDATED 


CLUCK  TIME  AND  UPDATES  SOURCE  AND  RESOURCE  TABLES 


CALLING  SEUUENCE 

CALL  CLOCK ( ITINE ) 


DESCRIPTION 


PARAMETERS 


ITIME  - 


* EXPLICIT  INPUT  * 

TIME  TO  BE  ASSIGNED  TU  CLUCK 


SUBROUTINE 
RON AM E 
BLK  IN 
INTRES 
INTSOR 
UPDRLS 
UPUSOR 


AND  EUNCTIUN  SUBPROGRAMS  REQUIRED 

- INPUTS  NAME  TABLES 

- INPUTS  COURCES 

- INITIALIZES  RESOURCE  TABLES 

- INITIALIZES  SOURCE  TABLES 

- UPDATES  RESOURCE  TABLES 

- UPDATtS  SOURCE  TABLES 


AUTHOR/PRUGRAMMtR 
JOHN  R.  MENIG 
CALSPAN  CORPORATION 
28  APRIL  197B 


L******* ************* ************  COR S IN  *****************************1 

C*  1 

C*  SUBROUTINE  CQRSIN  1 

C*  ' 

L*  PURPOSE 

C*  READS  ALL  BLOCKS  NEEDED  TO  DEFINE  COURSES  1 

C* 

C*  AUTHOR/PKOGKAMMER 

C*  JOHN  R.  MEN1G 

L*  CALSPAN  CORPORATION 

L*  22  APRIL  1975 

C* 

q**»* **************** ********************************** ********* ******* 
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I,**  ******************************  CGRSUl  ***************************** 
t*  * 

u*  SUBRGU1 I Nt  CGRSOT  * 

C*  * 
L*  PURPOSE  * 
C*  rfRIlt  THE  BLOCKS  NEtOtD  10  JEFINE  COURSES  FOR  STEPS.  * 

C*  * 
C*  AUTHJR/PROGRAMMtk  * 
L*  JOHN  R.  HEN  10  * 
C*  CALSPAN  CORPORATION  * 
C*  24  APRIL  197B  * 
C*  ♦ 
c** **v ************************************** ********** *************** *** 
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j 


[ 


L ********************************  CORTIM  **** 
C* 

r • SUBROUTINE  CORTIM 


CUR  TIM  ***************************** 


PURPOSE: 

CALCULATES  THE:  UURATION  OF  Thk  LONGEST  TRACK  IN  EACH  COURSE.  * 

* 

SUBROUTINE  ANU  FUNCTION  SUBPROGRAMS  REuUIREO  * 

MAX TRK  - CALCULATtS  THE  DURATION  OF  THE  LONGEST  TRACK  *• 

IN  A PARTICULAR  COURSE  * 

• 

AUTHOR/PROGRAMMER  * 

JOHN  R.  MEN 1G  * 

CALSPAN  CORPORATION  * 

o MAY  1973  * 


£** ****** ********************************************** ****** ******** *** 


i ******* *************************  GIST  AC  ***************************** 

C* 

* 

c* 

GUeRUllUNfc  OISTAC  ♦ 

c* 

* 

c* 

PURPOSL 

* 

c* 

OkTtRMlNfc  TMt  D1STR1 

faUTIUN  OP  AIR  CRAFT  PRUM  Tht  * 

c* 

INITIAL  INVENTOR lcS 

ANG  LtLIVLRiES  FOR  A GIVEN  AIR  BAiL.  * 

c* 

C* 

AUTHOR/PROGRAMMER 

u* 

JOHN  K.  MLNiG 

c* 

CALSPAN  GGRPlRAT  1GN 

L* 

3c  APRIL  197b 

c* 

(^**  ***************************************************  *****♦♦♦*♦  ******** 
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c* 

c* 

c* 

c* 

PURPOSl 

c* 

determine  the 

1NIT1 

c* 

c* 

AIR  BASE  FROM 

TIMt 

c* 

AUTHjR/ PROGRAMMER 

L * 

JOHN  R*  MENU, 

c* 

CALSPAN  CORPORATION 

L» 

c* 

1 MAY  1V75 

►***  L I S T 0 W **♦*< 

SUoRCUTI  NF  L1STCW 


DISTRIBUTION 
HISTORY  CARDS 


OF  CRtlrfS  FOR  A OlVLN 


* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 


1 


kLMMM*MMMM*M*MM**M**M*  f-MTN  AM  ************, 
0 ^ 

SUBROUTINE  FMTNAM 


PURPUSt 

RtALS  MArftS  IN  SILPi  AND  WRlltS  GUI  HjR  SlfcP3. 

AUTHUR/PRGbRAMM  tR 
JOHN  R.  MLNlb 
CAL  i*PAN  LCKPURA  f IuN 
22  APRIL  1^?^ 


************************************ 


*****************  ^^^^^ 


♦ 

* 

* 

« 

* 

* 

* 

* 

* 

* 

******** 


^ ******* *********  ****************  GENSOR  **************************,* 
C* 

c*  SUBROUTINE  GENSOR 

C* 

C*  PURPOSE 

**  APPLIES  GENERATING  FUNCTION  TO  SOURCES 

C* 

c*  authjr/programmer 

C*  JOHN  R.  MENIG 

L*  CALSPAN  CORPORATION 

C*  28  APRIL  1975 

C*  j 

L**** *♦♦*♦****♦♦*♦*** ******* ********* * ******* **************************. 


! 


i 

! 


I 

' 
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■■■iku sa 


.<tLH.il- 


GENRES 


SUBROUTINE  GENRES 

PURPOSE 

APPLIES  GENERA1 1 NO  FUNCTION  TO  RESOURCES. 

AUTHOR/PROGRAMMER 
JOHN  R.  MENIG 
CALSPAN  CORPORATION 
2d  APRIL  1975 
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c ********************************  OETKLS  **************************** 

c*  SUBROUTINE  GETRES 

C* 

C*  PURPOSE 

c*  READS  QUANTITY  OF  A GIVEN  RESOURCE  FOR  A GIVEN  PERIOD. 

L ^ 

c*  calling  sequence 

C*  CALL  GETRES  ( IRES f I T 1IN* 1 T2IN « IT  10UT  » I T20UT  » 1 ARRAY  ) 

v ^ 

C*  DESCRIPTION  OF  PARAMETERS 

C* 

C* 

C*  IRES 

c*  IT1IN 

C*  IT21N 

C* 

C* 

C*  ITIOUT 

G*  IT20UT 

C*  IARRAY 

C* 

C* 

C*  AUTHOR /PROGRAMMER 

C*  JOHN  R.  MENIG 

G*  CALSPAN  CORPORATION 

C*  28  APRIL  19  7b 

C* 

c ************  **************************  *******************************+ 


* EXPLICIT  INPUT  * 

- RESOURCE  NUMBER 

- BEGINNING  OF  TIML  I N1EKVAL  REQUESTED 

- ENG  OF  TIME  INTERVAL  REQUESTED 

* EXPLICIT  UU1 PUT  * 

- BEGINNING  OF  TIME  INTERVAL  RETURNED 
“ END  OF  TIME  INTERVAL  RETURNED 

- ARRAY  OF  QUANTITIES  RETURNED 


c Ml******************************  getsur  ******************* 
l* 

c*  SUBROUTINE  GETSQR 

C* 

C*  PURPOSE 

C*  READS  QUANTITY  UF  A GIVEN  SOURCE  FOR  A GIVEN  PERIOD. 

C* 

C*  CALLING  SEQUENCE 

C*  CALL  GETSOR ( 1SOR «ITIIN»IT2IN»IT 10UT » 1T20UT 1 1 ARRAY ) 

L* 

0*  DESCRIPTION  OF  PARAMETERS 


c* 

c* 

* EXPLICIT  INPUT  * 

c* 

ISOR 

- SOURCE  NUMBER 

c* 

ITilN 

- BEGINNING  OF  TIME  INTERVAL  REQUESTEI 

c* 

c* 

IT2IN 

- END  OF  TIME  INTERVAL  REQUESTED 

c* 

* EXPLICIT  OUTPUT  * 

c* 

ITIUUT 

- BEGINNING  OF  TIME  INTERVAL  RETURNED 

c* 

IT2UU1 

~ END  OF  TIME  INTERVAL  RETURNED 

L* 

L* 

c* 

IARRAY 

- ARRAY  OF  QUANTITIES  RETURNED 

AUTHOR/PROGRAMMER 

L* 

JOHN  R. 

MENIG 

c* 

CALSPAN 

CORPORATION 

c* 

L* 

28  APRIL  iV7!> 

£******♦**********♦*••**♦•*••****************************************** 
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J 


J 


C++****** ************ **+*++*+++**  GRAUbK  ***************************** 

C*  I 

SUBROUTINE  GRADBK  * 

* 

PURPOSE 

ASSIGNS  PRQC  BLOCKS  WITHOUT  RIGHT  POINTERS  AS  GRADUATION  * 


C* 

L* 

C* 

L* 

L* 

L* 

C* 

C* 

C* 

c* 

c* 


BLOCKS  EOR  EACH  COURSE. 

AUTHOR/PkOGKAMMEK 
JOHN  R.  MtNIG 
CALSPAN  CORPORATION 
Zh  APRIL  1975 


L*+*****************************************+**+***+**+*********+***+*** 


i**«»****************************  int  res  **************************** 


L* 

C* 

C* 

SUBROUTINE  1NTRES 

L* 

PURPOSE 

C* 

c* 

INITIALIZE  RESOURCE 

TABLES 

c* 

AUTHOR/ PROGRAMMER 

c* 

JOHN  R.  MENIG 

c* 

CAL. SPAN  CORPORATION 

c* 

L* 

28  APRIL  1975 

(,*•*•***••*****••*******************************************•••*•*•*•**< 


C** ******************************  INT  SOR  **************************** 
C* 

C*  SUBROUTINE  INTSOR 

C* 

C*  PURPOSE 

C*  INITIALIZE  SOURCE  TABLES 

C* 

C*  AUTHOR/PROGRAMMER 

C*  JOHN  R.  MENIG 

C*  CALSPAN  CORPORATION 

C*  28  APRIL  1975 

C* 

C** ******************************* ******* ****************************** 


o** ******************  ************  MAXTkK  ********************* ******* 
L* 

FUNCTION  MAXTkK 

C* 

C*  PURPOSE 

c*  CALCULATES  ThE  UURAllUN  OE  THE  LONGEST  TRACK  IN  A COURSE 

c*  calling  SfcuutNLt 

L*  MAX  1 RK ( IPT R ) 

c* 

C*  DESCRIPTION  OP  PARAMETERS 

L* 

c*  * EXPL1CI1  INPUT  * 

<-*  IPT*  - POINTS  AT  GRADUATION  PROC  BLOCK 

c* 

C*  AUTHOR/ PROG RAMMER 

c*  JOHN  R.  Mt NIG 

C*  CALSPAN  CORPORATION 

L*  2c  APRIL  lN7i- 

C* 

c** ************** *•*•••****** **************** ************************** 


l***»««* ************* ************ 

c* 

SUBROUTINE  MNLREW 


MNCREW  **** ******* ******* ******* 


♦ ** 


C* 

l* 

C* 

c* 

C» 

(-♦ 

c* 

C* 

C* 

c* 

c* 


PURPOSE 

DETERMINES  MINIMUM  CREW  DISTRIBUTION  TO  EE  MAINTAINED 
FOR  A GIVEN  *IR  bASL. 

AJTHOR/PRUGRAMMER 
JOHN  R.  MEN 1G 
CALSPAN  CORPORATION 
30  APRIL  197b 


^♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦M**MM**M*M*MM**M*MM***mM**M***M*MM* 
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r r 


».**¥**************♦**************  NAML  **********♦»****•**•♦»•»»♦♦♦** 
0* 

L*  GUBRUUTINL  NAME 

C*  PURPOSE 

C*  RETURN  A NAME  EG*  COLL  NUMBER. 

C* 

C*  CALLING  SEJUENCt 

C*  CALL  NAML ( 1 APRV tNUMBER* INAME ) 

C* 

C*  DESCRIPTION  UF  PARAMETERS 

C* 

C*  * EXPLICIT  INPUT  ♦ 

C*  1APRV  - ALPHANUMERIC  NAME  OF  THE  TYPE  OF  NAML  BEING  LOOKED  UP 

C*  NUMBER  - CODE  NUMBER  OF  NAME  BEING  LOOKED  UP 

C* 

C*  * EXPLICIT  OUTPUT  * 

C*  INAME  - ALPHANUMERIC  NAME  BEING  RETURNED 

C* 

C*  AJTh JR /PROG RAMMER 

C*  JOHN  R.  MENIG 

C*  CALSPAN  CORPORATION 

C*  11  APRIL  1975 

C* 

c****  **************  *****************************  ******  **********  ******* 


C***************** ******** *******  NUMBER  **************************** 


c* 

c* 

SUBROUTINE 

NUMBER 

c* 

c* 

PURPOSE 

c* 

RLTURNS  A CODE  NUMBER  FOR  A NAME. 

c* 

c* 

CALLING  SEOUENCL 

c* 

CALL  NUMBER I1APRV#NUMB*NAME) 

c* 

c* 

DESCRIPTION  OF  PARAMETERS 

c* 

c* 

* EXPLIC1 T INPUT  * 

C* 

IAPRV  - ALPHANUMERIC  NAME  OF  THE  TYPE 

c* 

NAME  - ALPHANUMERIC  NAME  BEING 

LOOKED  i 

c* 

c* 

* EXPLICIT  OUTPUT  * 

c* 

NUMb  - CODE  NUMfaER  RETURNED 

c* 

c* 

AUTHOR/ PROGRAMMER 

c* 

JOHN  R.  MEN1G 

c* 

CALSPAN  CORPORATION 

c* 

22  APRIL  1975 

c* 

OF 

UP 


CODE  BEING  L (JOKED  UP 


t ************ ********************************************************** 
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HHBaaaBi 


SUBROUTINE  PMT 


C* 

0* 

E* 

C*  PUR  PUSL 

C*  CREATES  PMT  DEMANDS  AND  DETERMINES  WHETHER  PMT  IS  h LAS IbLL 

U* 

C*  AUTHOR/ PROGRAMMER 

c*  JOHN  R.  MEN1G 

C*  CALSPAN  CORPORATION 

L*  2 MAY  197& 

C* 


H 


l 1 


C ♦♦♦♦*♦•  * ****  ♦♦  ******  **** 

c* 

SUBROUTINE  PRCQUR 


PRCOUR  **************************** 


C* 

C* 

c* 

c* 

L* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c * 

L* 


PURPOSE 

CONTROLS  THE  FOLLOW  BETWEEN  PROGRAMS  THAT  INPUTt  REFORMAT, 
EXAMINE,  AND  OUTPUT  BLOCKS  THAT  DEFINE  COURSES. 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 


CORSIN 


- READS  ALL  BLOCKS  NEEDED  TO  DEFINE  COURSES. 

PR P ROC  - CHANGES  PROC  AND  TASK  BLOCK  NUMBERS  INTO  POINTLRS 

PROC  BLOCKS. 

PRTASK  - CHANGES  RUa  NUMBERS  INTO  POINTERS  IN  TASK  BLOCKS. 

pRRUb  - changes  rudb  numbers  into  pointers  in  RUb  blocks. 

PRRJDB  - CHANGES  RU3  AND  RUQb  NUMBERS  INTO  POINTER  IN  RUDB 
b LOCKS 

- FINOS  GRADUATION  BLOCKS  FOR  EACH  COURSE 
“ TEST  THAT  THE  SYNRONIZED  PRuC  BLOCKS  FOR  A 

CIRCULAR  LIST. 

PROCLP  - TEST  THAT  PROC  BLOCKS  TERMINATE 

RUDbLP  - TEST  RUB  AND  RUDB  COMBINATIONS 

SORTLK  - IN  PROC  BLOCKS  SORTS  LEFT  LINKS  BY  PRIORTY 

CORSOT  - WRITES  ALL  BLOCKS  NEEDLD  TO  DEFINE  COURSE  IN  STEPS. 


IN 


gradbk 

tssyn 


AUTHOR/PROGRAMMER 
JOHN  R.  MENIG 
CALSPAN  CORPORATION 
24  APRIL  1975 


^** **************************************************** ************** 


** 


1 


I 

I 

I 

I 

1 


C** ******* *********** ************  PRO  CUP  ***************************** 


C*  * 

c*  SUBROUTINE  PROCLP  * 

C*  * 

c*  PURPOSE  * 

C*  TEST  THAT  EACH  TRACK  IN  A COURSE  IS  SHORTER  THAN  A * 

c*  PREDETERMINED  maximum  length.  * 

C*  * 

c*  author/prugrammlr  * 

C*  JOHN  R.  MEN IG  ♦ 

t*  CALSPAN  CORPORATION  * 

C*  24  APRIL  19 7b  * 

C*  * 


C****  *********************************  ********************************** 


■ 


E 

C 

it* 

L 

r 

l 

i 


L**+++****++***++*+4*+++*  ++mm 

C* 

SUBROUTINE  PRPROC 


PRPROC  ********************* ******* 


C* 

C* 

C* 

L* 

C* 

C* 

C* 

C* 

C* 

c* 

c* 


PURPOSE 

SUbSlITUTES  POINTERS  FOR  PROC  BLOCK  NUMBERS  A NO  TASK  NUMBERS; 
SUPPLIES  RIGHT  PROC  BLOCK  POINTERS  IN  PROC  BLOCKS, 

AUTHOR/PROGRANMER 
JOHN  R,  MEN1G 
CALSPAN  CORPORATION 
23  APRIL  1975 


c************************+***++****+++**mmmmmmmmmm* 


21 6 


C ******************** ************  PRRUb  ***PPPPP*PP9PPPP99999P9PP*9*P> 

C*  ' 

L*  SUBROUTINE  PRRUB  1 

CP 

C*  PURPOSE 

C*  SUBSTITUTES  POINTERS  FOR  RUDB  NUMBERS  IN  RUB  BLOCKS. 

C* 

cP  AUTHOR/PROGRAMMER 

C*  JOHN  R.  MENIG 

CP  CALSPAN  CORPORATION 

CP  23  APRIL  197b 

CP 

CPPPPPPPPPPPPPPP*PPPPPPPPPPPPPPPPPPPPPP*PPPPPPPPPPPPPPP*PPPPPPPPP****PP 


C******* *************************  PRRUDB  ***************************** 

* 

SUBROUTINE  PRRUDB  * 

* 
* 

PURPOSE  * 

SUBSTITUTES  POINTERS  FOR  RUB  AND  RUD6  NUMfatRS  IN  RUDB  faLOCKS,* 

* 


C* 

c* 

c* 

c* 

c* 

c* 

c* 


C*  AUTHOR/PROGRAMMfcR 
C*  JOHN  R.  MEN  1G 

C*  CALSPAN  CORPORATION 

C*  23  APRIL  197B 


C* 

C******* ************************** *********************************** 


* 

*** 


*,****#****m*m*«**m*»m»* 


KUB 


C#*#**** *************  ************  PRTASK 

C*  SUBROUTINE  PRTASK 

C* 

C* 

c* 
c* 
c* 

L* 

C* 
t* 

L* 


PURPOSE 

SUBSTITUTES  POINTERS  FOR 

aut  hor/programm  LR 

JOHN  R.  HENIG 
CAL SPAN  CORPORATION 
23  APRIL  1975 


NUMBERS  IN  TASK  BLOCKS# 


r„...«.««««**»*»*»***»***********”**”*”**”*”***””****** 


4 


c*.»******************************  PRTCkS  *************** 

C* 

c»  SU6KQUT INE  PRTCKS 

L* 

C*  PURPOSt 

l*  PRINTS  1 H t NUMBER  OF  STUuf N I S/COURSE/YEAR 

C* 

C*  SUB  ROUT INh  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

c*  mAML  - BINDS  THE  ALPHANUMERIC  NAME  OF  COURSES 

L* 

C*  AUTHOR/PRUGRAMMEK 

C*  , JOHN  R.  MENIC 

C*  CALSPAN  CORPORATION 

C*  22  MAY  IY7S 

q******* ******************** ********** ********** *********** ************ 


Cpp*pppp  *************************  PUT RES  ***P*PPPPPPP ***************** 

C*  i 

C*  SUBROUT 1NE  PUTRES  > 

C*  j 

C*  PURPOSE  | 

C*  WRITtS  QUANTITY  OF  A GIVEN  RESOURCE  FOR  A GIVEN  PERIOD 

C* 

C*  CALLING  SEQUENCE 

C*  CALL  PUTRESllRtS,ITl,IT2,lARRAY) 

CP 

C*  DESCRIPTION  OF  PARAMETERS 

C* 

C*  ♦ EXPLICIT  INPUT  ♦ 

C*  IRES  - RESOURCE  NUMBER 

CP  IT  1 - BEGINNING  OF  INTtRVAL 

C*  IT2  - END  OF  INTERVAL 

C* 

C*  AJTHOR/PRUGRAMMER 
C*  JOHN  R.  MENIG 

CP  CALSPAN  CORPORATION 

CP  29  APRIL  197S 

CP 

C***« ****************  ******************** ****************************** 


1 


C******** ************ ************ 

L* 

SUBROUT INL  PUTSOR 


PUT  SOR  **************************** 


c* 

C* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c» 

L* 

c* 

c* 

c* 

c* 

L* 

c* 

c* 

c* 

c* 


PURPOSE 

WRITES  QUANTITY  OF  A GIVEN  SOURCE  FOR  A GIVEN  PERIOD. 


CALLING  SEQUENCE 

CALL  PUTSOR(IS(jRfITlfIT2«I ARRAY) 


DESCRIPTION  OF  PARAMETERS 


ISOK 

IT1 

IT2 


♦ EXPLICIT  INPUT  * 

- SOURCE  NUMBER 

- BEGINNING  OF  INTERVAL 

- END  OF  INTERVAL 


AUTHOR/ PROGRAMMER 
JOHN  R.  MENIG 
CALSPAN  CORPORATION 
29  APRIL  1975 


C** ****** ********************************************** **************** 
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... 


I,**  ******  ******  ****************** 

L * 

c*  SUBROUTINE  RDNAME 

C* 

C* 

C* 

c* 

c* 

C* 

C* 

C* 


RDNAME  **************************** 


PURPOSE 

READS  NAMES  IN  STEP3 

AUTHOR/ PROG RAMMER 
JOHN  R.  MEN1G 
CALSPAN  CORPORATION 
22  APRIL  1975 


C* 

£************************************************♦********************* 
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O*  **********  *********  ***********  kEXOVR  ***************************** 
C*  * 

C*  SU&RoUTINL  RtUJVR  ♦ 
C*  * 
c»  PURPOSF  * 
C*  CRcATfc  CUP  1 LOT  Sl/URCkS  ♦ 
C*  * 
C*  AUT  H OR /PROG  kAMMfck  ♦ 
C*  JOHN  K.  MtNlG  * 
C*  CAL^PAN  CORPORA  WON  * 
C*  l HAY  1 * 


(,*********************************»******  ******************  v4**4**tHv«t 
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r r 


1********************************  RESR IN  **************************** 

c* 

G*  SUBROUTINE  RESRIN 

C* 

* PURPOSE 

* RtAD  RESOURCES*  TEST  RESOURCES  FOR  ERRORS*  AND  DETERMINE 

* BUCKET  SliES. 

C* 

C*  AUTHOR /PROGRAMMER 

c*  JOHN  R.  MEN1G 

C*  CALSPAN  CORPORATION 

C*  25  APRIL  1975 

C* 

4-J*t^*^3*<t**  ♦♦*♦♦»**  ’•‘♦**  ♦**♦♦*♦♦♦♦**♦****♦>•«•****************♦* 


C**  ******  ************  ************  RES  SCR  ***************************** 

C*  * 

u*  SUBROUTINE  RESSOR  * 

C*  * 

C*  PURPOSE  * 

G*  CUNTKOLS  FLOW  BETWEEN  ROUTINES  THAI  PROCESS  RESOURCES  AND  * 

C*  SOURCES  IN  STEP2.  * 

C*  * 

C*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED  * 

C*  GENRES  - GENERATES  RESOURCES  FROM  RESOURCE  CARDS  ♦ 

C*  GENSOR  - GENERATES  SOURCES  FROM  SUURCE  CARDS  ♦ 

C*  RESRIN  - READS  RESOURCE  CARDS  * 

C*  SOURIN  - READS  SOURCE  CARDS  ♦ 

C*  ♦ 

C*  AUTHOR /PROG RAMMER  ♦ 

C*  JOHN  R.  MENIG  * 

G*  CAL  SPAN  CORPORATION  * 

V.*  28  APRIL  1975  * 

L*  * 

£***♦ ************************************ ******************¥*********♦** 
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( i*************m***************++*  SORT  LX  ***************************** 


c* 

* 

L* 

SUBROUTINE.  SORTLK 

* 

C* 

* 

c* 

PURPOSE 

* 

L* 

SORTS  LEFT  LINKS  BY  ASCtNDING  PRIORTIES 

♦ 

c* 

* 

L* 

AUTHOR/PROG^AMMER 

* 

c* 

JOHN  R.  MEN1G 

* 

c* 

CALSPAN  CORPORATION 

* 

c* 

15  MAY  1975 

* 

c* 

* 

^*m****** ***********  **************************************************** 


C******** ****** ****** ************  SOUR IN  **************************** 
C* 

C*  SUBROUT  IN t SOUR IN 

C* 

C*  PURPOSE 

C*  READS  SOURCES*  TESTS  SOURCES  FOR  ERRORS*  AND  DETERMINES 

C*  BUCKET  SIZES. 

C* 

C*  AUTHOR/ PROGRAMMER 

C*  JOHN  R.  MENIG 

C*  CALSPAN  CORPORATION 

C*  25  APRIL  1975 

C* 

(****♦***************************************************************** 


t 


I 


r < 


C ******************** ************ 

c* 

MAIN 


STE  P2  *J>  **************************** 

* 

PROGRAM  STEP2  * 

* 

PURPOSE  * 

CALLS  ROUTINES  TO  INPUT  NAMES,  RECONSTRUCT  COURSE  BLOCKS,  * 

CALCULATE  AIR  BASE  UEMANDS,  GENERATE  RESOURCES,  AND  * 


GENERATE  SOURCES. 


C* 

C* 

C* 

C* 

c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 

C** *************************************************** ****************** 


SUBROUTINE 
FMT  NAM 
PRC  OUR 
ARBASE 
RESSOR 


AND  FUNCTION  SUBPROGRAMS  REQUIRED 

- INPUTS  NAMES 

- RECONSTRUCTS  COURSES 

- CALCULATES  AIR  BASE  DEMANDS 

- GENERATES  RESOURCES  AND  SOURCES 


AUTHOR/PRuGRAMMER 
JOHN  R.  MEN 1G 
CALSPAN  CORPORATION 
6 MAY  1975 


* 

* 

* 

♦ 

* 

* 

* 

* 

* 

♦ 

* 

* 


C **♦♦*♦•************* ************  1SSYN  ***************************** 
C* 

C*  SUBROUTINE  TSSYN 

C* 

C*  PURPOSE 

C*  TESTS  THAT  PROC  BLOCKS  THAT  ARE  SYNCHRONIZED  FORM  A CIRCULAR 

».*  LIST  CONTAINING  MORE  THAN  ONE  BLOCK  BUT  LESS  THAN  A 

C*  PREDETERMINED  MAXIMUM  NUMBER  UF  BLOCKS. 

C* 

C*  AUTHOR/PROGRAMMER 

C*  JOHN  R.  ME  NIG 

C*  CALSPAN  CORPORATION 

C*  ^3  APRIL  197S 

C* 


c **********************************************************  ************ 


t********************************  uptmts  ***************************** 

c ♦ 

C-*  SUBROUTINE  UPURES 

C* 

C*  PURPQSt 

C*  UPDATES  RESOURCE  LISTS  WHEN  CLUCK  TIME  HAS  CHANGED 

C* 

C*  AUTHQR/PRUGRAMMtR 
C*  JOHN  R.  MENIG 

C*  CALSPAN  CORPORATION 

C*  28  APRIL  1975 

C* 

£*********♦************************************************************ 


UPDSOR  **************************** 


SUBROUTINE  UPDSOR 


PURPOSE 

UPDATfcS  SORCL  LISTS  WHtN  CLOCK  TIME  HAS  CHANGED 

AUTHOR/ PROGRAMS ER 
JOHN  R.  MENIG 
CALSPAN  CORPORATION 
28  APRIL  1975 


1 


\ 


Section  2.4 

CROSS  REFERENCE  TABLES  FOR  ROUTINES  AND  VARIABLES 
USED  IN  COMMONS 
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CROSS  RE^tSENCt  SUMMARY  »**»♦***»»• 


1ABPCN 


USAGt  SUMMARY 


SVMbUL  TVPt  UjAGi.  ARY 


TIMtL 


K 


CROSi  RtFtrvLNLL  jjMMmKV  ***********•♦*******♦*♦**♦*»**♦*  SlEP^ 


jOoRGoTI  N t CKu^S  KEt-t  Kt_NCE  SJKMAKY  * ******************************  STEP2  ****************************** 


Section  3.0 
TRAM  PHASE  3 


3.1  Introduction 


The  purpose  of  this  section  is  to  supplement  the  data  in  Technical 
Memorandum  SAT-5,  TRAM  User's  Guide  with  respect  to  Phase  3 of  TRAM.  This 
Programmer's  Guide  consists  of  a description  of  the  data  management  system 
used  in  Phase  3,  a listing  of  the  input  and  output  data  sets,  subroutine  de- 
scription and  flow  diagrams,  cross  reference  tables  and  block  descriptions. 

In  addition  to  the  description  of  the  data  management  system,  the 
reader  should  note  the  capability  for  varying  the  dimensions  of  Phase  3 as 
described  in  Section  7. 

3.1.1  Data  Management 

Because  of  the  dynamic  data  flow  in  the  Phase  3 TRAM  Program,  the 
standard  FORTRAN  array  and  indexing  structures  are  inadequate  in  terms  of  core 
utilization  and  computational  efficiency. 

Most  of  the  information  used  by  the  program  is  grouped  into  blocks 
of  data  that  are  organized  using  singly  linked  lists.  The  formats  of  the  dif- 
ferent blocks  used  are  presented  in  Section  3.7.  This  method  makes  it  possible 

to  add  and  delete  blocks  to  the  lists  without  a need  for  periodic  reorganiza- 
tion. 


The  procblocs,  task  blocks,  resource  utilization  blocks  (RUBs)  and 
resource  utilization  description  blocks  (RUDBs)  share  a common  pool  of  storage 
in  common  BLKS  and  are  accessed  directly  by  their  addresses.  Subroutine  BLOCK 
is  used  to  copy  any  of  these  blocks  into  local  storage. 

3.2  Description  Of  Inputs 

The  inputs  consist  of  a limited  number  of  cards  described  in  SAT-5, 
TRAM  User's  Guide  and  the  following  data  sets: 
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Training  Demand  Records 

Training  demand  records  (Figure  3.1)  are  written  out  by  the  Phase  2 

TRAM  program  on  either  tape  or  disk.  They  are  6 words  long  and  written  without 
using  a format  statement. 

Before  use  in  Phase  3 of  TRAM,  the  training  demand  records  are  sorted 
on  time  in  decreasing  order. 

Resource  Inventories 

The  resource  inventory  records  (Figure  3.2)  are  written  out  b:  the 
Phase  2 TRAM  program  on  either  disk  or  tape.  They  are  3 words  long  and  written 
without  using  a format  statement. 

The  resource  records  are  sorted  in  decreasing  order  by  time. 

Trainee  Inventories 

The  source  records  (Figure  3.3)  describe  the  trainee  inventories. 
These  records  are  written  by  the  Phase  2 TRAM  program  on  either  disk  or  tape. 
They  are  3 words  long  and  are  written  without  using  a format  statement. 

The  source  records  are  sorted  in  decreasing  order  by  time. 

Description  Of  Training  Program 

The  Training  Program  (also  referred  to  as  courses)  is  described  by 
means  of  Procblocs,  Task  Blocks,  Resource  Utilization  Blocks  and  Resource  Uti- 
lization Description  Blocks.  The  detailed  formats  of  these  data  blocks  are 
given  in  Section  3.7. 

These  blocks  are  read  into  core  from  FORTRAN  Unit  20  when  the  CLOCK 
subroutine  is  invoked  for  the  first  time.  The  addresses  of  the  first  procbloc 
for  each  course  (the  Graduation  Block)  are  stored  in  array  IADPB1  in  common 
CBLK.  Each  procbUc  points  to  the  procbloc (s)  lying  to  the  left  and  right  of 
it  and  to  the  casks  associated  with  it.  Task  blocks  point  to  RUBs  and  RUBs 
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Figure  3.1 


************  ***********************+*****************m**m*M+* 

* training  demand  record  * 

* 

J**************************************^^^^^^^^^^* 

* WORD  * DESCRIPTION  ! 

* * 

***************************  *********** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


1 

2 

3 


4 

5 

6 


♦TIME 

♦QUANTITY  (FLOATING  POINT  NUMBER  OF  TRAINEES). 
♦ TYPE  OF  PERSONNEL.  I-  PILOTS 

2-  COPILOTS 

3-  OSOS 

4-  DSOS 


* 

* 

* 

♦COURSE  NUMBER 
♦DEMAND  NUMBER 
♦DEMAND  TYPE. 

* 


= AIR  BASE  NUMBER  ♦ 1000  ♦ BUCKET  NO. 

1- CCTS  BECAUSE  OF  DELIVERIES. 

2- CCTS  BECAUSE  OF  ATTRITION. 

3- PMP 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


******************  *********  j,*****************************^^^^* 
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figure  3.2 


m*«*M*«********M*******MMWMMMMMMMMMMMMMM> 

* RESOURCE  RECORD 

* 

J********J***************  *******************************  ******** 


* WORD  * DESCRIPTION 

* * 


* 1 * TIME 

* 2 * RESOURCE  NUMBER 

* 3 ♦ QUANTITY 

* * 


Figure  3.3 


************** *************************************************** 
* * 

* SOURCE  RECORD  * 

* 


****** *********************************** ****** ****************** 
* * * 

* WORD  * DESCRIPTION  * 

* * * 

******************************************* 

* * ♦ 

* I * TIME  * 

* 2 * SOURCE  NUMBER  * 

* 3 * QUANTITY  * 

* * * 


***************************  ***************************** *****##*<1 


in  turn  point  to  the  RUDBs.  This  linked  structure  permits  quick  access  (using 
subroutine  BLOCK)  to  information  required  for  performing  the  different  functions 
of  the  program  (i.e.,  Class  Transfer  Tasks,  Resource  Utilization  Tasks,  etc.) 

Class  blocks,  stored  in  common  CLASSB,  are  created  for  each  new  class 
of  students  entering  k course  at  the  graduation  block  and  for  every  time  that 
an  existing  class  is  split  among  different  tracks.  Class  blocks  are  deleted 
from  the  list  whenever  a procbloc  without  a left  branch  is  executed.  Subroutine 
NEWCLS  creates  class  blocks  and  subroutine  REMCLS  deletes  them. 

Predetermined  transfer  Llocks,  stored  in  common  PTBC,  are  created  by 
subroutine  FKMPTB  when  a source  allocation  task  (SCATSA)  is  executed.  The 
pointer  to  the  first  PTB  is  placed  in  the  class  block.  After  a PTB  is  used  to 
control  a class  transfer  at  a node,  it  is  deleted  and  the  space  it  used  is 
released  by  subroutine  REMPTB.  The  pointer  in  the  class  block  is  updated  to 
point  to  the  next  PTB. 

Look-up  and  updates  of  resource  and  source  inventories  are  done  by 
using  subroutines  GETRES,  PUTRES,  GETSOR  and  PUTSOR.  Resource  and  source  in- 
ventories are  stored  on  tape  or  disk.  When  subroutine  clock  is  called  for  the 
first  time,  the  buffers  allocated  to  the  inventories  are  filled  with  data 
starting  at  the  simulation  clock  time  and  extending  as  far  back  as  space  per- 
mits. Every  time  that  the  subroutine  clock  is  called,  inventory  records  for 
times  greater  than  the  simulation  clock  time  are  written  out  on  tape  or  disk, 
and  the  core  thus  made  available  is  used  to  read  in  resource  and  source  inven- 
tories for  an  earlier  time. 


3.3 


Description  Of  Outputs 


The  outputs  of  the  Phase  3 TRAM  program  consist  of: 


4. 

5. 

6. 


Echo  of  inputs . 

satisfied!^6"' 3rieS  remaining  after  training  demands  have  been 

Lrvenbe™S“.tisfiedVent°rieS  renaininS  after  Gaining  demands 
Lag  records. 

Source  allocation  records. 

Warning  and  error  and  normal  end  messages. 


in  SAT- 5. 


Items  2-5  are  described  below.  Items  1 and  6 are  described  in  detai 


Resource  Inventories 

The  output  resource  inventory  records  are  identical  in  form  to  the 
input  resource  inventory  records  (Figure  3.2). 

The  input  inventory  minus  the  output  inventory  for  any  given  time  in 
terval  is  the  amount  of  the  resource  consumed  during  that  time  to  satisfy  the 
training  requirements. 


Source  Inventories 

The  output  source  inventory  records  are  identical  in  form  to  the  in- 
put  source  inventory  records  (Figure  3.3). 

The  input  inventory  minus  the  output  inventory  for  any  time  interval 
is  the  number  of  trainees  from  that  particular  source  actually  assigned  to  the 
training  program  during  that  time  interval. 
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Lag  Records 


The  lag  records  (Figure  3.4)  are  written  out  on  tape  or  disk  by  the 
Phase  3 TRAM  program  whenever  a class  has  to  be  lagged. 

Note  - Processing  in  TRAM  3 is  done  in  reverse  time  order  (i.e.  last 
PROCBLOC  of  a course  is  done  first,  first  PROCBLOC  is  done  last.)  Thus  when  a 
class  is  lagged,  the  net  effect  is  to  force  something  to  occur  at  an  earlier 
date. 


# * 


Figure  3.4 


LAG  RECORD 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 


12 


* 1 

* CLASS  ADRESS 

* CURRENT  CLASS  TIME  (TIME  AT  WHICH  LAG  STARTS) • 

* COURSE  NUMBER 

* PRGCBLOCK  NUMBER 

* TASK  NUMBER 

* 0 
* 0 

* DURATION  OF  CURRENT  PROCBLOCK. 

* LAG  DURATION 

* LAG  REASON.  1-  RESOURCE  ALLOCATION  FAILURE. 

* 6-  SYNCHRONIZATION  FAILURE. 

* 7-  CORRELATION  FAILURE. 

* !?*  °F  SCARCE  RESOURCE.  (APPLICABLE  ONLY  IF  WORD 

* 11  ISA  1 ) 

* UNIQUE  CLASS  NUMBER. 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


13 


I 


Source  Allocation  Records 


i 


II 

* a 


The  source  allocation  records  (Figure  3.5)  are  written  out  on  tape 

or  disk  by  the  Phase  3 TRAM  program  each  time  a class  of  students  is  matriculated 
in  a course. 


A potential  discrepancy  can  arise  between  the  matriculation  date  es- 
tablished by  subroutine  SCATSA  and  the  actual  matriculation  date. 


SCATSA  assigns  classes  to  sources  on  the  basis  of  track  priorities, 
allocation  proportions  and  availability  of  trainees.  Once  the  assignments  are 
made,  the  classes  will  follow  the  established  tracks.  However,  if  lags  occur 
due  to  resource  unavailability  or  synchronization  or  correlation  failure,  a 

class  may  reach  the  matriculation  block  at  an  earlier  time  than  predicted  by 
SCATSA • 


The  source  allocation  records  are  written  when  the  class  reaches  the 
matriculation  procbloc  and  the  'GETSOURCE'  task  is  executed. 


The  large  time  interval  used  for  trainee  inventories  should  serve  to 
minimize  this  possible  problem. 
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: ... 


Figure  3.5 


'* ******************** ****************************************** 

' SOURCE  ALLOCATION  RECORD. 

! 

r**********************************************,******^^^^^ 

* 

1  WORD  * DESCRIPTION 

* 

i***************************************************^^^^^^ 

* 

1 * 2 

2 * CLASS  ADRESS 

3 * CURRENT  CLASS  TIME  (NOT  INCLUDING  DURATION  OF 

* PROCBLOCK). 

4 * COURSE  NUMBER 

5 * PROCBlOCK  NUMBER. 

6 * TASK  NUMBER. 

7 * SOURCE  NUMBER. 

8 * NUMBER  OF  TRAINEES. 

9 * DURATION  OF  CURRENT  PROCBLOCK. 

10  * GRADUATION  DATE. 

11  * 0 

12  * 0 

13  * UNIQUE  CLASS  NUMBER 

* 

******************************* ********************************, 


I 


I 


i 


I 


!J 


I 


] 


I 


I 


] 


6 


I 

I 

l 


\ 


3,4  Subprogram  Descriptions 

This  section  contains  the  descriptions  of  the  individual  subroutines 
that  comprise  Phase  3 of  the  TRAM  program.  The  description  for  each  subprogram 
consists  of  a statement  of  the  purpose  of  the  routine,  the  calling  sequence,  a 
description  of  its  parameters  (if  any) , the  method  used,  a list  of  the  subpro- 
grams required  and  the  name  of  the  programmer.  A high  level  flowchart,  which 
shows  the  logical  decision  points  and  the  processing  accomplished,  is  also  in- 
cluded for  most  subprograms. 
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CC* ******************* **********  ADDTDQ  ******************************** 


CC* 

* 

CC* 

PURPOSE 

* 

CC* 

UTILITY  ROUTINE  FOR  STORING  TRAINING  DEMAND  INFORMATION 

* 

CC* 

IN  A LINKED  LIST, 

* 

CC* 

* 

CC* 

CALLING  SEQUENCE 

* 

CC* 

* 

CC* 

CALL  ADDTDQC NCORSE ,NUMT , IDATE » IDGRAD.ITTYPE • IDTYPE ) 

* 

CC* 

* 

CC* 

DESCRIPTION  OF  PARAMETERS 

* 

CC* 

* 

CC* 

NCORSE 

NUMBER  OF  COURSE  TO  WHICH  THESE  TRAINEES 

* 

CC* 

SHOULD  BE  SENT. 

* 

CC* 

NUMT 

NUMBER  OF  TRAINEES  IN  THIS  TRAINING 

* 

CC* 

DEMAND  RECORD. 

* 

CC* 

NOTE.-  VALUE  IS  A FLOATING  POINT  NUMBER. 

* 

CC* 

IDATE 

TRAINING  DEMAND  DATE. 

* 

CC* 

IDGRAD 

GRADUATION  ID.  GENERATED  BY  STEP  2.  NOT  USED. 

* 

CC* 

ITTYPE 

TRAINEE  TYPE.  1.-  PILOTS 

* 

CC* 

2.-  COPILOTS 

* 

CC* 

3.-  OSD 

* 

CC* 

4.-  DSO 

* 

CC* 

IDTYPE 

TRAINING  DEMAND  TYPE.  1.-  CCTS-DELI VER Y. 

* 

CC* 

2.-  CCTS— ATTR ITION. 

* 

CC* 

3.-  PMT 

* 

CC* 

* 

CC* 

* 

CC* 

PROGRAMMER 

* 

CC* 

GEORGE  GAIDASZ 

* 

CC* 

CALSPAN 

* 

CC* 

MAY  1975 

* 

CC* 

* 

CC***** ******************************************** ********** *********** 
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CC******************************  ALL OCA  ************♦*♦♦**♦*»*****»***» 


CC* 

CC* 

PURPOSE 

CC* 

TO  SELECT  FROM 

A SET  OF  EQUAL  PRIORITY  TRACKS  THE  NUMBER 

CC* 

CC* 

OF  TRAINEES  THAT  HAVE  NOT  BFEN  ALLOCATED  YET. 

CC* 

CC* 

CALLING  SEQUENCE 

CC* 

CC* 

CC* 

CALL  ALLOCA(Nf 

LIST, ICURRT, NUMSTD,  NASGND  ) 

CC* 

CC* 

DESCRIPTION  OF  PARAMETERS 

CC* 

CC* 

* INPUT  * 

CC* 

N 

NUMBER  OF  ELEMENTS  IN  LIST. 

CC* 

LISTO 

POINTERS  TO  TRACKS  OF  EQUAL  PRIORITY  TO 

CC* 

WHICH  WE  WISH  TO  ASSIGN  THIS  CLASS. 

CC* 

ICURRT 

CURRENT  SIMULATION  TIME. 

CC* 

NUMSTD 

NUMBER  OF  STUDENTS  IN  THE  CLASS  BEING 

CC* 

CC* 

PROCESSED. 

CC* 

CC* 

* I / 0 * 

CC* 

CC* 

NASGND 

NUMBER  OF  STUDENTS  ALLOCATED  SO  FAR. 

CC* 

CC* 

SUBROUTINES  USED 

CC* 

CC* 

ALLOC 

CC* 

PROGRAMMER 

CC* 

G.  GAIDASZ 

CC* 

CALSPAN 

CC* 

CC* 

AUG  1975 

CO****  ******  *********  *********  **************************************** 
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ALLOCA 


START 


LOOP  ON 

SELECTED 

TRACKS 


HAVE 

ALL 

TRACKS 

BEEN 


INDICATE 

ALLOCATION 

FAILURE 


TRY  TO 

ALLOCATE  ALL 
UNALLOCATED 
STUDENTS  IN 
THE  CLASS 


ALLOC 


UPDATE 
NUMBER  OF 
STUDENTS 
ACTUALLY 
ALLOCATED 


ALLOCATED 


CO*****************************  ALLOC  ********************************* 


CC* 

* 

CC * 

PURPOSE 

* 

CC* 

ALLOCATE  MINIMUM  OF  DESIRED  AND  AVAILABLE  NUMBER  OF 

* 

CC* 

STUDENTS  TO  A 

GIVEN  SOURCE  AT  A SPECIFIC  PERIOD  IN  TIME 

• * 

CC* 

* 

CC* 

CALLING  SEQUENCE 

* 

CC* 

* 

CC* 

CALL  ALLOC  fNSORCE* IG STM E»N STUDS tNSTUDA) 

* 

CC* 

* 

CC* 

* 

CC* 

DESCRIPTION  OF  PARAMETERS 

* 

CC* 

* 

CC* 

* INPUT  * 

* 

CC* 

* 

CC* 

NSORCE 

NUMBER  OF  SOURCE 

* 

CC* 

IGSTME 

TIME  AT  WHICH  SOURCE  IS  REQUIRED. 

* 

CC* 

NSTUDS 

NUMBER  OF  STUDENTS  WE  WOULD  LIKE  TO 

* 

CC* 

MATRICULATE. 

* 

CC* 

* 

CC* 

* OUTPUT  * 

• 

* 

CC* 

* 

CC* 

NSTUDA 

NUMBER  OF  STUDENTS  ACTUALLY  ASSIGNED  TO 

SOURCE* 

CC* 

* 

CC* 

* 

CC* 

SUBROUTINES  USED 

* 

CC* 

* 

CC* 

GETSOR 

* 

CC* 

PUTSOR 

* 

CC* 

* 

CC* 

REMARKS 

* 

CC* 

A SINGLE  ELEMENT  OF  THE  SOURCE  INVENTORY  IS  LOOKED  UP. 

* 

CC* 

THE  CELL  SIZE 

(TIME  PERIOD)  FOR  SOURCE  INVENTORIES  IS 

* 

CC* 

LARGE  COMPARED 

TO  COURSE  DURATION*  SO  THAT  A PROXIMITY 

* 

CC* 

SEARCH  WOULD  BE  INAPPROPRIATE. 

* 

CC* 

* 

CC* 

PROGRAMMER 

* 

CC* 

G.  GAIDASZ 

* 

CC* 

CALSPAN 

* 

CC* 

AUG  1975 

* 

CC* 

* 

CC ******* *************************************************************** 


U 


r 

iJ 


0 
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0 


r 


ALLOC 


START 


GET  SOURCE 
INVENTORY 


^ ANY  ^ 
ERRORS 
DETECTED 


ERROR 


ENOUGH 
SOURCE 
AVAILABLE 
TO  SATISFY 
DEMAND 


ALLOCATE 

DESIRED 

QUANTITY 


ALLOCATE 

QUANTITY 

AVAILABLE 


UPDATE 

INVENTORY 


SET  SOURCE 
INVENTORY 
TO  ZERO 


PUT  SOURCE 
INVENTORY 


CC***** *************************  *lL0CD 


cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


PURPOSE 

Jr  toL^CT  FR0M  A stT  OF  EQUAL  PRIORITY  TRACKS.  THE  niimrpp 

of  trainees  specified  by  the  transfer  proportions. 

CALLING  SEQUENCE 

CALL  ALLOCD<N,LIST,ICURRT,NUMSTD,SUMPCT,  NASGND  ) 

DESCRIPTION  OF  PARAMETERS 
* INPUT  * 

"T#l  NUMBER  of  ELEMENTS  IN  LIST. 

LISTO  R°™TERS  T0  TRACKS  0F  equal  priority  to 

tyi ir  r t WHICH  WE  WISH  TO  ASSIGN  THIS  CLASS. 

CURRENT  SIMULATION  TIME. 

SmJmsseo.STUDENTS  IN  the  CIASS  eEING 
SUHPCT  SUMMATION *OF  PER  CENTAGES  - USED  TO  NORMALIZE 

♦I/O  * 

NASGND  NUMBER  OF  STUDENTS  ALLOCATED  TO  SOURCES 

SUBROUTINES  USED 

ALLOC 

PROGRAMMER 

G.  GAIDASZ 
CALSPAN 
AUG  1975 


INDICATE 

ALLOCATION 

FAILURE 


ALLOC 


UPDATE 
NUMBER  OF 
STUDENTS 
ACTUALLY 
ALLOCATED 


ALLOCATED 


START 


LOOP  ON 

SELECTED 

TRACKS 


ALLOCD 


COMPUTE 
DESIRED 
ALLOCATION 
FOR  THIS  TRACK 
FROM  PROCBLOC 
PROPORTION  SPECS 


» * Am* 


I 

p*. 

i. 


CC ******************************  ASCLS  ************************4 

cc* 

PURPOSE 

CREATE  A LIST  OF  ALL  CLASSES  WITH  THE  SAME  GRADUATION 
ID  NUMBER  WAITING  TO  ENTER  A SPECIFIED  PROCBLOC. 

LIST  CONTAINS  POINTERS  TO  ARRAYS  OF  CURRENT  CLASSES. 
NOT  CLASS  ADRESSES. 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


CALLING  SEQUENCE 

CALL  ASCLS ( IPROCby IDGR AD»NCLS»I ACLS) 


DESCRIPTION  OF  PARAMETERS 


* INPUT  * 

IPROCB 

IDGRAD 


ADRESS  OF  PROCBLOCK 
CREW  NUMBER  (GRADUATION 


ID). 


* IMPLICIT  INPUT  * 
COMMON  COLS 


* OUTPUT  * 

NCLS 

IACLSO 

PROGRAMMER 

G.  GAIDASZ 
CALSPAN 
MAY  1975 


NO.  OF  CLASSES  FOUND  THAT  MATCH  THE 
PROCBLOC  NUMBER  AND  THE  GRADUATION  ID. 

LIST  OF  POINTERS  TO  CLASSES  IN  COMMON  CCLS. 


INITIALIZE 
LIST  OF 
CLASSES 


LOOP  ON 

CURRENT 

CLASSES 


PROCBLOC 


UPDATE  LIST 
OF  CLASSES 
WAITING  TO 
ENTER  A SPECIFIED 
PROCBLOC,  AND 
HAVING  SPECIFIC  CREW  # 


CC ******************************  ASCLSS  ******************************** 

cc*  . 

CC*  PURPOSE  m 

CC*  CREATE  A LIST  OF  ALL  CLASSES  WAITING  TO  ENTER  A SPECIFID  ♦ 

CC*  PROCBLOC.  * 

CC*  LIST  CONTAINS  POINTERS  TO  ARRAYS  OF  CURRENT  CLASSES.  * 

CC*  NOT  CLASS  ADRESSES.  * 

CC* 

CC*  * 

CC*  CALLING  SEQUENCE  * 

CC*  ’ 

CC*  CALL  ASCLSS( IPROCB»NCLS » IACLS ) * 

CC*  * 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


DESCRIPTION  OF  PARAMETERS 


* INPUT  * 
IPROCB 


ADRESS  OF  PROCBLOCK 


* IMPLICIT  INPUT  * 
COMMON  CCLS 


* OUTPUT  * 
NCLS 
I ACLS  < ) 


PROGRAMMER 

G.  GAIDASZ 
CALSPAN 
MAY  1975 


NUMBER  OF  CLASSES  ASSOCIATED  WITH  PROCBLOC 
AT  IPROCB 

LIST  OF  CLASSES  ASSOCIATED  WITH  PROCBLOC 
AT  IPROCB 


u,* 

C C ***************************************** ****$$^ ******** ************$ 
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C*********** *****+***************  BLOCK 
C* 

SUBROUTINE  BLOCK 


C* 

C* 

C* 

C* 

C* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 


PURPOSE 

RETURNS 


THE  CONTENTS  OF  A BLOCK 


CALLING  SEOUtNCfc 

CALL  BLOCK  (1ADDR, I ARRAY) 

DESCRIPTION  OP  PARAMETERS 

* EXPLICIT  INPUT  * 
IADDR  - POINTS  AT  BLOCK  WHOS 


1 A R P.  A Y - 


* EXPLICIT 
CONTENTS  UF 


OUTPUT  * 
BLOCK  ARC 


AUTHOR/PROGRAMMER 
JOHN  R.  MENTG 
CALSPAN  CORPORATION 


24  APRIL 


1V75 


***************  **  * * * **  * * * * * * * * 

* 
♦ 
* 
* 


A 

♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 


CONTENTS  IS  DESIRED. 


PLACED  IN  THIS  ARRAY. 


C***********************************^^^^^^^^^^^^* 
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* * 


£******************«*************  RLKNAM  ***************************** 
C* 

C*  BLOCK  DATA 

C* 

C*  PURPOSE 

C*  INITIALIZES  VARIABLE  NEEDED  WHEN  INPUTTING  NAMES. 


AUTHOR /PROG RAMMER 
JOHN  R.  MENIG 
CALSPAN  CORPORATION 
22  APRIL  1S>75 


285 


I 


blkin 


C ******************* ************* 

c* 

SUBROUTINE 


C* 

C* 

C* 

C* 

C* 

C* 

c* 

c* 

c* 

c* 


PURPOSE 

READS 


THE  BLOCKS  NEEDED  TO 


AUT hi  a/P RCG K AMM b R 
JOHN  K.  MF.NIG 
CALSPAN  CORPORATION 
24  APRIL  1«#75 


*****************************„, 

* 

BLKIN  * 

* 

* 

DFFINE  COURSES.  * 

* 
* 
* 
* 
* 
* 


C ************************************************ 
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CC******************************  CALQ  ********************************** 

PURPOSE  * 

TO  CALCULATE  THE  QUANTITY  OF  RESOURCE  REQUIRED  BY  A CLASS  * 
DOING  A TASK  AS  A FUNCTION  OF  time.  L 55  * 

CALLING  SEQUENCE  * 

CALL  CALQ f NS TUDS »NRUTF » NRUGF  * IQTYU »IQTYP»  NBI * * 

1 NBO,IQTY*ITOTQ)  * 

DESCRIPTION  OF  PARAMETERS  * 

* 
* 

NUMBER  OF  STUDENTS  IN  THE  CLASS  * 

NUMBER  OF  THE  RESOURCE  UTILIZATION  TIMING  * 

FUNCTION.  2-  ARBITRARY  * 

3-  UNIFORM  * 

NUMBER  OF  THE  RESOURCE  UTILIZATION  GROUPING  * 

FUNCTION.  1-  CLASS  * 

2-  QTY  OF  PRIMARY  CONSUMED.  * 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


* INPUT  * 

NSTUDS 

NRUTF 


NRUGF 


IQTYU 

IQTYP 

NBI 


* OUTPUT  * 


NBC 

IQTYU 


ITOTQ 


PROGRAMMER 

GEORGE  GAIDASZ 

CALSPAN 

MAY  1975 


3-  INDIVIDUAL. 

UNITS  OF  CONSUMPTION  PER  UNIT  USER. 
QUANTITY  OF  PRIMARY  CONSUMED 
NUMBER  OF  BUCKETS  FROM  WHICH  RESOURCE 
CAN  BE  EXTRACTED. 


NUMBER  OF  BUCKETS  OVER  WHICH  RESOURCE 
CONSUMPTION  WILL  BE  SPREAD. 

ARRAY  CONTAINING  THE  AMOUNTS  OF  THE 
CONTEMPLATED  RESOURCE  CONSUMPTION. 

(IN  REVERSED  TIME  SEQUENCE). 

TOTAL  QUANTITY  OF  PLANNED  RESOURCE 
UTILIZATION. 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


CC*  ^ 


CC ******************** **********  CBLOCK  ******************************** 

CC* 


CC*  PURPOSE 

CC*  TO  PRINT  A CLASS  BLOCK 

CC* 

CC*  PROGRAMMER 
CC* 

CC*  CALLING  SEQUENCE 
CC* 

CC*  CALL  CBLOCKf IADRSy IBLOCK ) 

CC* 

CC* 

CC*  DESCRIPTION  OF  PARAMETERS 
CC* 

CC*  IADRS  ADRESS  OF  CLASS  BLOCK. 

CC*  IBLOCK  FIRST  WORD  OF  CLASS  BLOCK 

CC* 

CC*  G.  GAIDASZ 

CC*  CALSPAN 

CC*  MAY  1975 

CC* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


CC****  **********************************************************  ******** 
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1 


I t 


CC******************** **********  CLASCG  ******************************* 


CC* 

* 

CC* 

PURPOSE 

* 

CC* 

TO  FORM  CLASSES  FOR  CREWS  AND  EXTRAS. 

* 

CC* 

(THIS  ROUTINE  IS  A COMPANION  TO  GRADF  AND  ASSUMES 

THAT 

* 

CC* 

CREWS  CAN  BE  FORMED  WITHOUT  REGARD  TO  THE  DESTINATION 

* 

CC* 

AiR  BASE  OF  THE  INDIVIDUAL  CREW  MEMBERS). 

* 

CC* 

* 

CC* 

* 

CC* 

CALLING  SEQUENCE 

* 

CC* 

* 

CC* 

CALL  CLASCG 

* 

CC* 

* 

CC* 

REMARKS 

* 

CC* 

THIS  ROUTINE  LOOPS  THRU  ALL  THE  COURSES  IN  EACH  COURSE  GROUP 

* 

CC* 

AND  FINDS  THE  SMALLEST  DEMAND. 

* 

CC* 

IF  THE  DEMAND  IS  SUFFICIENT  THEN  CREW  GROUPS  ARE 

FORMED. 

* 

CC* 

THE  SIZE  OF  THE  CREW  IS  EQUAL  TO  THE  INTEGERIZED 

VALUE  OF 

* 

CC* 

THE  SMALLEST  DEMAND.  EXTRAS  CLASSES  ARE  FORMED  FROM  THE 

* 

CC* 

REMAINING  DEMANDS. 

* 

CC* 

IF  THE  SMALLEST  DEMAND  IS  LESS  THAN  ONE  THEN  THE 

PROGRAM 

* 

CC* 

EITHER  CREATES  EXTRAS  CLASSES  (IOPTCG  EQ  0)  OR  SAVES  THE 

* 

CC* 

DEMANDS  FOR  THE  NEXT  GRADUATION. 

* 

CC* 

* 

CC* 

SUBROUTINES  USED 

* 

CC* 

MLTCLS 

* 

CC* 

* 

CC* 

PROGRAMMER 

* 

CC* 

G.  GAIDASZ 

* 

CC* 

CALSPAN 

• 

CC* 

MAY  1975 

* 

CC* 

* 

CC***** ************************************************** ************** 


) 


! 


LI 

Li 


•»  * 


J 
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.! 

!l 

Li 

0 

f] 

D 


C ********************* ***********  CLOCK  ****************************** 

C*  * 

C*  SUBROUTINE  CLOCK  * 

C*  • 

C*  PURPOSE  * 

C*  UPDATES  CLOCK  TIME  AND  UPDATES  SOURCE  AND  KESOURCi  TABLES  * 

C*  * 

C*  CALLING  SEQUENCE  * 

C*  CALL  CLOCK ( ITIME ) * 

C*  * 

C*  DESCRIPTION  UF  PARAMETERS  * 

C*  * 

C*  ♦ EXPLICIT  INPUT  * * 

C*  ITIME  - TIME  TO  BE  ASSIGNED  TO  CLOCK  * 

C*  * 

C*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED  * 

C*  RDNAMt  - INPUTS  NAME  TABLTS  * 

C*  BLKIN  - INPUTS  CGURCES  * 

C*  INTRES  - INITIALIZES  RESOURCE  TABLfS  * 

C*  INTSOR  - INITIALIZES  SOURCE  TABLES  * 

C*  UPDRES  - UPDATES  RESOURCE  TABLES  * 

C * UPDSOR  - UPDATES  SOURCE  TABLFS  * 

C*  * 

C*  AUTHOR/PROGRAMMER  * 

C*  JOHN  R.  MENIG  * 

C*  CALSPAN  CORPORATION  * 

C*  28  APRIL  1*75  * 

C*  * 

C ******************* ***** ** *** *********** ** * *******  ****** ******* ******** 


I 


CLOCK 


^ FIRST  ^ 
TIME  ROUTINE 
CALLED 

V ? y 


CURRENT 
TIME  GREATER 
THAN  LAST 
TIME 

v CALLED  . 

\ ? / 


ERROR 

MESSAGE 


RDNAME 

READ 

NAME 

TABLES 


UPDATE 

CLOCK 


STOP  3000 


BLKIN 

READ 

COURSE 

DESCRIPTIONS 


INTSOR 

INITIALIZE 
STORAGE 
FOR  SOURCE 
DATA 


INTRES 

INITIALIZE 
STORAGE 
FOR  RESOURCE 
DATA 


UPDSOR 


UPDATE 
SOURCE  DATA 
IN  CORE 


UPDRES 

UPDATE 
RESOURCE 
DATA  IN  CORE 


RETURN 


CC******************************  CLSDMP  ******************************** 

cc*  * 

CC*  PURPOSE 

CC*  TO  PRINT  A DUMP  OF  THE  CLASS  STORAGE. 

CC* 

CC*  CALLING  SEQUENCE 
CC* 

CC*  CALL  CLSDMPt IADRS ) 

CC* 

CC*  DESCRIPTION  OF  PARAMETERS 
CC* 

CC*  IAORS  ADRESS  OF  CLASS  AT  WHICH  TROUBLE  OCCURRED. 

CC* 

CC* 

CC*  PROGRAMMER 
CC*  G.  GAIDASZ 

CC*  CALSPAN 

CC*  MAY  1975 


CC******************************  CGRR 
CC* 

PURPOSE 

TO  CORRELATE  THE  EXECUTION 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


*************  ********************* 

* 


Of  A NUMBER  OF  PROCBLOCS. 


CALLING  SEQUENCE 

CALL  CORR(MINTME) 
DESCRIPTION  UF  PARAMETERS 
* OUTPUT  * 


MINTME 


TIME  TO  WHICH  CLASSES  WILL  BE  LAGGED  IF 
CORRELATION  IS  IMPOSSIBLE  AT  THIS  TIME. 


* IMPLICIT  OUTPUT  * 


IEXTRA 
IFAIL 
NOCLS 
INDXC ( ) 


IS  SET  TO  !«  IF  EXTRA  TASKS  ARE  TO  BE 
EXECUTED. 

IS  SET  TO  1 IF 
ACCOMPLISHED 
NUMBER  OF  CLASSES  TO  BE 
IN  EXECUTION  OR  LAGGED. 

LIST  OF  CLASSES  TO  BE  SYNCHRONIZED 
EXECUTION  OR  LAGGED. 


CORRELATION  CANNOT  BE 
SYNCHRONIZED 


IN 


REMARKS 


CORRELATION  MEANS  THAT  SOME  STUDENTS  ARE  PRESENT  IN  EACH  ONE 
OF  THE  COURSES  LINKED  BY  THE  CORRELATION  SPECIFICATION. 

IF  CORRELATION  CANNOT  BE  ACHIEVED  THE  CLASSES  ARE  LAGGED 
UP  TO  A MAXIMUM  TIME  MAXLAG.  ONCE  A CLASS  HAS  BEEN  LAGGED 
FOR  MAXLAG  TIME,  IT  WILL  EXECUTE  THE  EXTRAS  TASKS  IF  IT 
CANNOT  BE  CORRELATED  IMMEDIATELY. 

SUBROUTINES  USED 
CLSDMP 
PBLOCK 
ASCLS 
SYNCT 
BLOCK 
ASCLSS 


PROGRAMMER 

G.  GAIDASZ 
CALSPAN 
MAY  1975 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


I******** ************* 


CC ******************** **********  detlag  ******************************** 

cc*  * 

CC*  PURPOSE  * 

CC*  DETERMINE  HOW  LONG  A TIME  LAG  IS  NECESSARY  TO  REACH  A * 

CC*  PERIOD  IN  TIME  WHEN  A SPECIFIED  RESOURCE  IS  AVAILABLE.  * 

CC*  * 

CC*  CALLING  SEQUENCE  * 

CC*  * 

CC*  CALL  DETLAG< IRES, NEEDQ,LAGTME  * 

CC*  DESCRIPTION  OF  PARAMETERS  * 

CC*  IRES  NUMBER  OF  THE  RESOURCE  FOR  WHICH  THE  * 

CC*  DEMAND  COULD  NOT  BE  SATISFIED  AT  THIS  * 

CC*  TIME  * 

CC*  NEEDQ  QUANTITY  OF  RESOURCE  NEEDED.  * 

CC*  LAGTME  TIME  TO  WHICH  CLASS(ES)  SHOULD  BE  LAGGED.  * 

CC*  * 

CC*  REMARKS  * 

CC*  WHEN  A DEMAND  FOR  RESOURCES  CAN  NOT  BE  SATISFIED  DURING  * 

CC*  THE  ACTIVE  TIME  INTERVAL,  THREE  PROCESSING  OPTIONS  ARE  * 

CC*  AVAILABLE:  * 

CC*  1.  STOP  THE  RUN.  * 

CC*  2.  INDICATE  THE  SHORTAGE  AND  CONTINUE.  * 

CC*  3.  LAG  THE  CLASS  TO  A TIME  PERIOD  WHEN  THE  * 

CC*  RESOURCES  NEEDED  ARE  AVAILABLE.  * 

CC*  THIS  ROUTINE  TRIES  TO  DETERMINE  THE  LATEST  TIME  WHEN  A * 

CC*  RESOURCE  IS  AVAILABLE. 

CC*  DETLAG  BRINGS  IN  A FIXED  NUMBER  OF  BUCKETS  OF  THE  INVENTORY 

CC*  OF  THE  SCARCE  RESOURCE  INTO  LOCAL  STORAGE.  THIS  INVENTORY  * 

CC*  IS  EXAMINED  IN  GROUPS  OF  BUCKETS  CORRESPONDING  TO  THE  * 

CC*  PROCBLOC  INTERVAL.  IF  ANY  PERIOD  WITHIN  THE  TIME  INTERVAL  * 

CC*  CONSIDERED  HAS  ENOUGH  RESOURCF  AVAILABLE  TO  SATISFY  THE  * 

CC*  DEMAND,  THE  CLASS  (OR  CLASSES)  ARE  LAGGED  TO  THE  END-TIME  * 

CC*  OF  THAT  PERIOD.  OTHERWISE  THE  CLASSES  ARE  LAGGED  TO  THE  * 

CC*  START  OF  THE  »LOOK-BACK»  PERIOD.  * 

CC*  NOTES.-  THE  LOOK -BACK  IS  DONE  FOR  ONE  CLASS-RESOURCE  * 

CC*  COMBINATION,  WITHOUT  MEMORY  OF  OTHER  RESOURCE  USERS.  * 

CC*  THEREFORE,  WHEN  THE  CLASS  TRIES  TO  USE  THE  RESOURCE  * 

CC*  AT  THE  LAGGED  TIME,  THERE  MAY  NOT  BE  ENOUGH  RESOURCE  * 

CC*  LEFT  BECAUSE  ANOTHER  CLASS  HAS  USED  IT  UP.  * 

CC*  ALSO,  THE  CLASS  MAY  RUN  OUT  OF  SOME  OTHER  RESOURCE  * 

CC*  DURING  THE  LAGGED  TIME.  * 

CC*  * 

CC*  * 

CC*  SUBROUTINES  USED  * 

CC*  GETRES  * 

CC*  * 

CC*  PROGRAMMER  * 

CC*  G.  GAIDASZ  * 

CC*  CALSPAN  * 

CC*  AUG  1975  * 

CC*  * 

CC*** ********************************************************* ********** 
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• * 


DETLAG 


START 


COMPUTE  TIME 
N'  RESOURCE 
BUCKETS 
FROM  NOW 


BRING  IN 
RESOURCE 
INVENTORY 
FOR  N BUCKETS 


CALCULATE 
LIMITS  OF 
POSSIBLE 
INTERVALS 


LOOP  OVER 
INTERVALS 


SET  LAG 
TIME  TO 
START  OF 
PERIOD 


AOO  UP 

QUANTITY 

AVAILABLE 

OVER 

INTERVAL 


ENOUGH^ 
AVAILABLE 
TO  SATISFY 
DEMAND 


c* ******* ***********************  dtrnsf  ******************************* 

cc* 

CC*  PURPOSE 

CC*  TRANSFER  A CLASS  FROM  ONE  PROCBLOC  TO  THE  NEXT  PROCBLOC. 

CC* 

CC* 

CC* 

CC*  CALLING  SEQUENCE 
CC* 

CC*  CALL  DTRNSF 

CC* 

CC*  REMARKS 

CC*  WHEN  A CLASS  ENTERS  DTRNSF  IT  MEANS  THAT  ALL  TASKS  FOR 

CC*  THE  ACTIVE  PROCBLOC  HAVE  BEEN  SUCCESSFULLY  COMPLETED. 

CC*  THE  CLASS  PRIORITY  IS  RESTORED  TO  EQUAL  THE  COURSE 

CC*  PRIORITY*  AND  THE  f/EXT-BREAK  TIME  IS  UPDATED  IF  APPROPRIATE. 

CC*  IF  THE  PROCBLOC  IN  WHICH  THE  CLASS  IS  LOCATED  HAS  ONLY 

CC*  ONE  LEFT  BRANCH  THEN  THE  CLASS  PARAMETERS  ARE  UPDATED  IN 

CC*  PLACE. 

CC*  IF  THE  PROCBLOC  HAS  NO  BRANCHES *THEN  THE  CLASSBLOCK  IS 

CC*  REMOVED  FROM  STORAGE  BY  ROUTINE  REMCLS 

CC*  IF  THE  PROCBLOC  HAS  MORE  THAN  ONE  BRANCH  THEN  SUBROUTINE 

CC*  SPLIT  IS  INVOKED  TO  EFFECT  THE  TRANSFER. 

CC* 

CC*  SUBROUTINES  USED 
CC*  BLOCK 

CC*  PBLOCK 

CC*  SPLIT 

CC*  PUTCLS 

CC*  CBLOCK 

CC*  REMCLS 

CC* 

CC* 

CC*  PROGRAMMER 
CC*  GEORGE  GAIDASZ 

CC*  CALSPAN 

CC*  MAY  1975 


CC*  PROGRAMMER 

CC*  GEORGE  GAIDASZ 

CC*  CALSPAN 

CC*  MAY  1975 

CC* 

CC*************************************************  ********  4c*********** 


DTRNSF 


UPDATE 

PROBLOC  ADRS 
AND  EXECUTION 
TIME  IN 
CLASS  BLOCK 


^ MANY  LEPTON 
BRANCHES 
DOES  ASSOCIATED 
. PROBLOC 


REMOVE 
CLASS  BLOCK 
FROM  PROCESSING 


SPLIT 


CC******************** **********  ERROR  ********************************* 

CC*  PURPOSE  * 

CC*  TO  PRINT  ERROR  MESSAGES. 

CC* 

CC*  CALLING  SEUUENCE 
CC* 

CC*  CALL  ERROR ( N *NAME ) 

CC* 

CC*  DESCRIPTION  OF  PARAMETERS 
CC* 

CC*  N ERROR  NUMBER 

CC*  NAME (2)  NAME  OF  SUBROUTINE  IN  WHICH  ERROR  OCCURRED. 

CC* 

CC*  PROGRAMMER 
CC*  G.  GAIDASZ 

CC*  CALSPAN 

CC*  AUG  1975 

CC* 

CC* 

CC***«* ************************************************** ************** 
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CC*******************,*******W  EXECT  *MM*m*MmM*m*M**M^M* 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


PURPOSE 

TO  EXECUTE  THE  TASKS  DESCRIBED  IN  THE  TASK  LIST, 

CALLING  SEQUENCE 
CALL  EXECT 
REMARKS 

CONTROLS  THE  EXECUTIONS  OF  THE  TASKS  WITHIN 
PROCBLOCS  BY  CLASSES.  AFTER  INITIALIZATION*  FXECT  INVOKES 

AND  — bS.IA.SM?.A?RAN9E  ™E  TASKS  IN  PROPER  ORDER 


_ ' ' — ' r nur  c r\  ur\  L/  C r\  W 

SUPPLY  THE  NECESSARY  PROGRAM  SUPPLIED  TASKS  (I.E.  UPDATE*  < 


DTRNSF ) • THEN  EXECT  LOOPS  THRU  THE  TASKS  AND  INVOKES  THE 
PROPER  ROUTINES  TO  PERFORM  THE  TASK.  NOTE  THAT  SYNC  AND 
CORR  CHANGE  THE  LIST  OF  TASKS  SO  THAT  THE  LOOP  MUST  BE 
RESTARTED. 

!f..Ar,TASK  FA1LS  ™REE  OPTIONS  ARE  AVAILABLE  TO  THE  USER. 
THE  OPTIONS  ARE  STOP*lGNORE  OR  LAG  THE  CLASSES. 

SUBROUTINES  USED 
CORR 
DTRNSF 
RFSUSE 
INI  TR 
GETCLS 
SCATSA 
SYNC 
PLIST 
TBLOCK 
LAG 
BLOCK 
CBLOCK 
UPDATE 

PROGRAMMER 

GEORGE  GAIDASZ 

CALSPAN 

MAY  1975 


* 

* 

* 


ACTIVE? 


THERE  ANV 
TASKS  TO 


LOOP  ON 
TASKS 


SELECT 
PROPER 
MODULE  FOR 
DOING  TASK 


EXECUTE 

TASK 


RESULT 


OPTION? 


LAG 

CLASS(ES) 


FORMC  ******************************** 


CC***** ************************* 

CC* 

PURPOSE 

CREATE  CLASS  BLOCKS  FROM  THE  TRAINING  DEMAND  INFORMATION 
STORED  BY  *FQRMQ  • • 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


CALLING  SEQUENCE 
CALL  FORMC 
REMARKS 

THIS  ROUTINE  EXTRACTS  FROM  THE  TRAINING  DEMAND  QUEUE 
THE  RECURDS  NECESSARY  TO  COMPUTE  THE  GRADUATION 
REQUIREMENTS  FOR  EACH  COURSE.  THE  STORAGE  OCCUPIED  BY 
THE  TRAINING  DEMANDS  IS  RETURNED  TO  FREE  SPACE. 
SUBROUTINES  GRADE  AND  CLASCG  ARE  USED  TO  FORM  THE 
CLASSES 

SUBROUTINES  USED 
CLASCG 
FRETDB 
GETTDB 
GRADE 

PROGRAMMER 

GEORGE  GAIDASZ 

CALSPAN 

MAY  1975 


FORMC 


LOOP  THRU 
ALL  COURSES 


CLASCG 


SET  COUNT 
OF  TRAINING 
DEMANDS  TO 


GET  A 
TRAINING 
DEMAND  REC 
UPDATE 
COUNTER 


THERE  ANY 
TRAINING 
OEMANOS 
FOR 
COURSE 


IS 

OUEUE 

EMPTY 


GRADF 


' DEMAND 
TIME 

GRADUATION 


FREE 

DEMAND 

BLOCK 


CC********************^*********  FORMO  *****************************,„ 

c c* 

PURPOSE 

READ  IN  TRAINING-DEMAND  RECORDS  GENERATED  BY  TRAM2  FOR 
A PERIOD  OF  TIME  TO  MEET  CURRENT  GRADUATION  SCHEDULES 
FOR  ALL  COURSES  AND  FORM  INDIVIDUAL  TRAINING  DEMAND  QUEUES 
FOR  EACH  COURSE 


cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


CALLING  SEQUENCE 
CALL  FORMQ 
REMARKS 

TRAINING  DEMAND  RECORDS  ARE  READ  ONLY  TO  THE  TIME  OF  THE 
LATEST  GRADUATION  AMONG  THE  COURSES. 

THE  RECORDS  ARE  STORED  IN  A ONE-DIMENSIONAL  LINKED  LIST. 

SUBROUTINES  USED 
ADDTDQ 

PROGRAMMER 

GEORGE  GAIDASZ 

CALSPAN 

MAY  1975 


310 


READ  A 
TRAINING 
DEMAND 
RECORD 


SET  STATUS  TO 
NORMAL 


RECORD 


SIMULATION 


COURSES 

DONE’ 


READ  A 
TRAINING 
DEMAND 
RECORD 


CALCULATE 
CURRENTS. 
PREVIOUS 
GRAD.  DATES 
FOR  COURSE 


RECORD 


GRADUATION 


SET  FILE 
STATUS 
TO  EOF 


I 1 

r i 


cc* 

* 

cc* 

PURPOSE 

* 

cc* 

UTILITY  ROUTINE  FOR  FREEING  STORAGE  NO  LONGER 

USED 

BY 

* 

cc* 

TRAINING  DEMAND  RECORDS  IN  A LINKED  LIST. 

* 

L! 

cc* 

* 

cc* 

CALLING  SEQUENCE 

* 

n 

cc* 

* 

Li 

cc* 

CALL  FRETDB(NCORSE) 

* 

cc* 

* 

cc* 

DESCRIPTION  OF  PARAMETERS 

* 

cc* 

* 

cc* 

NCORSE  NUMBER  OF  COURSE  FOR  WHICH  THE 

CORE 

OCCUPIED 

* 

t i 

cc* 

BY  THE  FIRST  TRAINING  DEMAND  RECORD 

WILL 

* 

cc* 

BE  RETURNED  TO  FREE  SPACE. 

* 

! 1 

cc* 

* 

cc* 

* 

'I 

cc* 

PROGRAMMER 

* 

11 

cc* 

GEORGE  GAIDASZ 

* 

cc* 

CALSPAN 

* 

S I 

cc* 

MAY  1975 

* 

cc* 

* 

1 1 

cc* ******** ************************************************************* 


FRETDB 


START 


GET  ADDRESS 
OF  FIRST 
TRAINING 
DEMAND  FOR 
GIVEN  COURSE 


MAKE  NEXT 
TRAINING 
DEMAND  THE 
FIRST 


^ IS  ^ 
THE  CURRENT 
FIRST  DEMAND 
v NULL 


SET  ADRS  OF 
LAST  TRAINING 
DEMAND  FOR 
COURSE  TOO 


RETURN  SPACE 
OF  FIRST 
DEMAND  TO 
FREE  STORAGE 


UPDATE 
POINTER  TO 
FREE  STORAGE 


CC***** ********** ***************  FRMPTB  ******************************** 


CC* 

* 

CC* 

PURPOSE 

* 

CC* 

TO  CREATE  THE  PREDETERMINED  TRANSFER  BLOCKS  FOR 

A CLASS. 

* 

CC* 

* 

CC* 

* 

CC* 

CALLING  SEQUENCE 

* 

CC* 

* 

CC* 

CALL  FRMPTBC  Ll,L2) 

* 

CC* 

* 

CC* 

DESCRIPTION  OF  PARAMETERS 

* 

CC* 

* 

CC* 

* INPUT  * 

* 

CC* 

* 

CC* 

LI  POINTER  TO  FIRST  TDB  FOR  COURSE. 

* 

CC* 

L2  POINTER  TO  LAST  TDB  FOR  COURSE. 

* 

CC* 

* 

CC* 

SUBROUTINES  USED 

* 

CC* 

* 

CC* 

PUTPTB 

* 

CC* 

* 

CC* 

REMARKS 

* 

CC* 

PROCESSING  IN  THIS  ROUTINE  CONSISTS  OF  CREATING 

A PTB 

* 

CC* 

H)R  THE  PROCbLOC  FROM  WHICH  SCATSA  WAS  CALLED. 

* 

CC* 

THIS  PTB  INDICATES  HOW  MANY  STUDENTS  WILL  BE  GOING  THRU 

* 

CC* 

EACH  BACKWARD  BRANCH.  THE  NODE  CHAINS  FROM  THE 

TRACK 

* 

CC* 

DESCRIPTOR  BLOCKS  ARE  FOLLOWED  FOR  EACH  BRANCH, 

AND 

* 

CC* 

PTBS  ARE  CREATE  FOR  EACH  NODE  IN  THE  TRACKS  LEADING  TO 

* 

CC* 

THE  SELECTED  SOURCES. 

* 

CC* 

* 

CC* 

PROGRAMMER 

* 

CC* 

G.  GAIDASZ 

* 

CC* 

CAL SPAN 

* 

CC* 

AUG  1975 

* 

CC* 

* 

CC******« *********** ********************* **********  ********************* 
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<£******************* ***********  GENTDB  *********♦♦****♦♦******♦*****♦♦* 

PURPOSE  * 

courseERATE  A SET  °F  track  DESCRIPT0R  blocks  FOR  EACH 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


CALLING  SEQUENCE 

CALL  GENTDB( ISRCE1.IDUMP  ) 


DESCRIPTION  OF  PARAMETERS 


* INPUT  * 
ISRCE1 


POINTER  TO  FIRST  SOURCE  FUR  THIS  COURSE. 
(NOSRCS  POINTS  TO  THE  LAST  SOURCE). 
DIAGNOSTIC  DUMP  SWITCH.  (1-PRINT  OIAGS. ) 


ISRCE1  POINTS  TO  THE 
COMMON  SORDSC  POINTS 
ROUTINE  STARTS  AT 


IDUMP 

SUBROUTINES  CALLED 
BLOCK 
PBLOCK 

REMARKS 

GENTDB  IS  CALLED  ONCE  FOR  EACH  COURSE. 

FIRST  SOURCE  FOR  THE  COURSE*  NOSRCS  IN 

TO  THE  LAST  SOURCE  FOR  THE  COURSE.  THE  

EACH  SOURCE  AND  USING  THE  FORWARD  POINTERS  STEPS  THRU  THE 
PROCBLOCS  UNTIL  A NOOE  IS  FOUND. ( PROCBLUC  WITH  MORE  THAN 
ONE  BACKWARD  POINTER).  CUMULATIVE  TIME  OF  THE  PROCBLOCS. 
FROM  THE  SOURCE  TO  THE  NODE  (INCLUSIVE)  IS  CALCULATED 
AS  ARE  THE  CUMULATIVE  PRIORITIES  AND  PERCENTAGES  (PRESENT 
ONLY  AT  NODES). 

A DESCRIPTION  OF  EACH  NODE  OF  EVERY  TRACK  IS  STORED  IN  THE 
ARRAYS  OF  COMMON  RLTDBC • EACH  TRACK  DESCRIPTOR  BLOCK 
POINTS  TO  THE  PRECEEDING  NODE  OF  THE  SAME  TRACK. 

VARIABLE  NSRCE  POINTS  TO  THE  SOURCE  DESCRIPTION  IN  COMMON 
BLOCK  SORDSC. 

NOTE.-  TRACK  DESCRIPTOR  BLOCKS  ARE  CREATED  ONLY  FOR 
COURSES  THAT  CONTAIN  MORE  THAN  1 TRACK. 

PROGRAMMER 

G.  GAIDASZ 
CALSPAN 
AUG  1975 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


CC*  J 

CC*************^*****  ♦«************************,** 
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Geras 

J-  _ . 


cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


PURPOSE 

IS*2°.VE  A VARIABLE  NUMBER  of  words  from  a class  block 
INTO  LOCAL  STORAGE  L BL0C* 

CALLING  SEQUENCE 

CALL  GETCLS( INDEX, IA,N  ) 

DESCRIPTION  OF  PARAMETERS 
* INPUT  * 


INDEX 

N 

* OUTPUT  * 

IA  ( ) 

PROGRAMMER 

GEORGE  GAIDASZ 

CALSPAN 

MAY  1975 


ADRESS  OF  THE  CLASS  BLOCK 

NUMBER  OF  WORDS  TO  BE  MOVED  TO  LOCAL  STORAGE 


N WORDS  OF  CLASS  BLOCK 


CC* 

co**************************^^^^^^**^*^^^^^^  ^ * 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 


cc*** ******************** *******  GEmB 

CC*  PURPOSE 

cct  STORAGE?  ™ * ,>RE0ETE*MINE°  TRANSFER  BLOCK  INTO  LOCAL 


CC* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


CALLING  SEQUENCE 

CALL  GETPTBUaORS,IAI 
DESCRIPTION  OF  PARAMETERS 


* INPUT  * 
IADRS 

* OUTPUT  * 
I A ( ) 

PROGRAMMER 

G.  GAIOASZ 
CALSPAN 
MAY  1975 


AORESS  OF  PTB 


TEN  WORDS  OF  PTB 


CC* 

cc*****«* ************* 


l 


—— ■— 


GETPTB 


START 


DECREMENT 
ADRS  OF 
PTB  BY  1 


LOOP  ON 
WORDS  OF  PTB 


INCREMENT 
ADRESS 
BY  1 


COPY  WORD 
FROM  PTB 
INTO  TEMP. 
STORAGE 


- ^ , 


GETRES 


C ********  ******+***+****+4.+++*+++ 

C* 

SUBROUTINE 


c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 


PURPOSE 

READS 


****************** * ** *** * * ** * 

* 

GETRES  * 

* 
* 

QUANTITY  Up  A GIVEN  RESOURCE  FOR  A GIVFN  PERIOD.  * 

CALLING  SEQUENCE  * 

CALL  GETRES ( IRE S t I T1 IN , IT?IN ♦ I T 10UT, IT2UUT, I ARRA Y ) * 

DESCRIPTION  OF  PARAMETERS  * 

♦ EXPLICIT  INPUT  * * 

RESOURCE  NUMBER  * 

BEGINNING  OF  TIME  INTERVAL  REQUESTED  * 

END  UF  TIME  INTERVAL  REQUESTED  * 

* 

* EXPLICIT  OUTPUT  * * 

BEGINNING  OF  TI MF  INTFRVAL  RETURNED  * 

END  OB  TIME  INTERVAL  RETURNED  * 

ARRAY  OF  QUANTITIES  RETURNED  * 

* 

AUTHOR /PROGRAMMER  * 

JOHN  R.  MENIG  * 

CALSPAN  CORPORATION  * 

28  APRIL  197B  * 


IRES 

1TIIN 

IT2IN 


ITIOUT 
IT20UT 
I ARRAY 


C******************************************^^*^^^^^^^^^^^^^^^^^^^^ 


' - ^ 
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GETSOR 


C*********************^^,^^,^^ 

c* 

SUBROUTINE 


C* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 


********  ****** **  ************  * 

GE7SOR  * 

* 

GUANTITY  OR  A GIVEN  SOURCE  FOR  A GIVEN  PERIOD.  * 

CALLING  SEQUENCE  * 

CALL  GF TSOR(  ISGR * 1 T1 IN» I T2 IN» ITIOUT, IT 20U7 » I ARRAY ) * 

* 
* 
* 
* 
* 
* 
* 


PURPOSE 

READS 


DESCRIPTION  OF  PARAMETERS 


* EXPLICIT  INPUT  * 

ISOR  - SCURCfc  NUMBER 

IT1IN  - BEGINNING  OF  TIME  INTERVAL  REQUESTED 
IT2IN  - END  OF  TIME  INTERVAL  REQUlSTTO 

* EXPLICIT  OUTPUT  * 

ITIOUT  - BEGINNING  OF  TIME  INTERVAL  RETURNED 
IT20UT  - END  OF  TIME  INTERVAL  RETURNED 
I ARRAY  - ARRAY  OF  QUANTITIES  PFTURNBU 

AUTHOR/PROGRAMMEK 


* 

* 

* 

* 


c*  JOHN  R.  MENIG 

c*  CALSPAN  CORPORATION 

C*  2b  APRIL  I97S 

C* 

C ******** *******************^4, 
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* * 


GETSOR 


CALCULATE  THE 
INTERVAL  TO  BE 
RETURNED  BASED 
ON  THE  INTERVAL 
REQUESTED  AND 
AMOUNT  IN  CORE 


CYCLE  THRU 
BUCKETS  TO 
BE  RETURNED 


BUCKETS 

PROCESSED 


PLACE  QUANTITY 
FROM  CELL  INTO 
ARRAY  TO  BE 
RETURNED 


BUCKET 
ON  LIST 


PLACE  A 
QUANTITY  OF  0 
IN  THE  ARRAY 
TO  BE  RETURNED 


rr*** ***************************  GETTDB  ******************************** 

LL* 


cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


cc* 


cc* 


PURPOSE 

UTILITY  ROUTINE  TO  ACCESS  TRAINING  DEMAND 
STORED  IN  A LINKED  LIST. 


INFORMATION 


CALLING  SEQUENCE 


CALL  GETTDB ( NCORSE , IPOINTtNUMT , I DATE, I DGR AD, ITTYPE  » IDTYPE ) 
DESCRIPTION  OF  PARAMETERS 


* INPUT  * 


NCORSE 


COURSE  NUMBER  FOR  WHICH  NEXT  AVAILABLE 
TRAINING  DEMAND  IS  REQUIRED. 


* OUTPUT  * 


IPOINT 


NUMT 

IDATE 

IDGRAD 

ITTYPE 

IDTYPE 


ADRESS  OF  NEXT  AVAILABLE  TRAINING  DEMAND 
RECORD.  0 IF  NONE  REMAIN. 

NUMBER  OF  STUDENTS. (FLOATI NG  POINT  VALUE! 
DEMAND  DATE 

GRADUATION  TD.  (SET  TO  ZERO  IN  ADDTDQ) 
TRAINEE  TYPE  (PILOT *COPILOTfOSO*DSO) • 
REASON  FOR  DEMAD.  (CCTS  DUE  TO  DELIVERY, 
CCTS  DUE  TO  ATTRITION, PMT ) • 


PROGRAMMER 

GEORGE  GAIDASZ 
CALSPAN 


MAY  1975 


* 

* 

* 

♦ 

♦ 

♦ 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


V.  V.  * 

CC*****************^*************^**^,*********:^,^*************^***! 
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- - " 


GETTDB 


START 


SET 

POINTER 
TO  ZERO 


QUEUE 
FOR  COURSE 
EMPTY 


SET  POINTER 
TO  FIRST 
TRAINING 
DEMAND  FOR 
COURSE 


EXTRACT 

TRAINING 

DEMAND 

RECORD 


CC******************************  GRADF  ******************************„ 

cc* 

CC*  PURPOSE 

CC*  TO  ACCUMULATE  THE  TRAINING  DEMANDS  FOR  A COURSE. 

CC* 

CC*  REMARKS 

CC*  THIS  ROUTINE  IS  USED  ONLY  WHEN  CREWS  CAN  BE  FORMED 

CC*  WITHOUT  REGARD  TO  THE  DESTINATION  AIR  BASE. 

CC* 

CC*  CALLING  SEQUENCE 
CC* 

CC*  CALL  GRADF (NCORSE) 

CC* 

CC*  DESCRIPTION  OF  PARAMETERS 
CC* 

CC*  NCORSE  NUMBER  OF  COURSE  FOR  WHICH  TRAINING  DEMAND 

cc*  RECORDS  ARE  TO  BE  ACCUMULATED. 

CC* 

CC* 

CC*  PROGRAMMER 
CC*  G.  GAIDASZ 

CC*  CALSPAN 

CC*  MAY  1975 

CC* 

CC******************************************lM[*,|t*it*,MtlM[1|IlM[lM[1|[1|llM[l|,1ml|IJM[ 
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CQ***** *************** **********  I NIT  ********************************** 


cc*  * 

CC*  PURPOSE  * 
CC*  1.  READ  IN  EXECUTION  AND  OUTPUT  CONTROL  PARAMETERS.  * 
C*  2.  INITIALIZE  WORKING  STORAGE  AND  POINTERS.  * 
CC*  3.  CREATE  TRACK  DESCRIPTOR  RECORDS  * 
CC*  * 
CC*  * 
CC*  CALLING  SEQUENCE  * 
CC*  * 
CC*  CALL  INIT  * 
CC*  * 
CC*  REMARKS  * 
CC*  THE  ROUTINE  MUST  BE  PROCESSED  BY  THE  VARY  PROGRAM  BEFORE  * 
CC*  COMPILATION  BECAUSE  IT  CONTAINS  VARIABLES  THAT  DEFINE  THE  * 
CC*  SIZE  OF  THE  ARRAYS.  * 
CC*  * 
CC*  SUBROUTINES  USED  * 
CC*  TRACKD  * 
CC*  * 
CC*  PROGRAMMER  * 


CC*  GEORGE  GA1DASZ  * 

CC*  CALSPAN  * 


IN  IT 


I 

I 

I 


I 

1 


CC******************************  INITR  ********************************* 

cc*  * 

CC*  PURPOSE  * 

CC*  INITIALIZE  WORKING  STORAGE  FOR  TENTATIVE  RESOURE  ALLOCATION  * 

CC*  CALCULATIONS.  * 

CC*  ’ 

CC*  * 

CC*  CALLING  SEQUENCE  * 

CC*  * 

CC*  CALL  INITR 


PROGRAMMER 

G.  GAIOASZ 
CALSPAN 
MAY  1975 


* 

CC  *******************  j**************************************************^ 


INITIALIZE 
LIST  OF 

ADDRESSES  OF 
RESOURCES 
IN  LOCAL 


STORAGE 


INITIALIZE 
POINTER 
TO  NEXT 
AVAILABLE 
SPACE  OF  LOCAL 
STORAGE 


^ ********************* ***********  twtccc 

C*  INTRES  ******** ********************# 

r*  SUBROUTINE  INTRES  * 


PURPOSE 

INITIALIZE  RESOURCE  TABLES 

AUTHOR/PRUGRAMMtR 
JOHN  R.  MENIG 
CALSPAN  CORPORATION 
2tt  APRIL  1975 


334 


jgjftrfjl 


* 


READ 

RESOURCE 

BUCKET 

SIZES 


CREATE  AN 
AVAILABLE 
SPACE  LIST 


CREATE  EMPTY 
LISTS  FOR  EACH 
RESOURCE 


C********************* ***********  INTSOR  ***************************** 


c* 

c*  SUBROUTINE  INTSOR 

C* 

C*  PURPOSE 

C*  INITIALIZE  SOURCE  TABLES 

C* 

c*  author/progkammer 

C*  JOHN  R.  MENIG 

C*  CALSPAN  CORPORATION 

C*  2f  APRIL  1975 

C* 


* 

* 

* 

1 * ' 

* 

* 

* 

* 

* 

* 

* 


C *****’*  ^^  *♦*♦*  ♦♦*♦*♦♦*  ♦♦*  ********  ♦**♦***♦**♦  *****  ***************  ****  * *** 


0 

II 

0 


0 


[■] 

il 


INTSOR 


READ 

SOURCE 

BUCKET 

SIZES 


CREATE  AN 
AVAILABLE 
SPACE  LIST 


CREATE  EMPTY 
LISTS  FOR 
EACH  SOURCE 


RETURN 


CC******************************  |_ AG  *********************************** 

cc*  * 

CC*  PURPOSE  * 

CC*  TO  DELAY  PROCESSING  OF  A SET  OF  CLASSES  UNTIL  A SPECIFIED  * 

CC*  TIME.  * 

CC*  * 

CC*  * 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


CALLING  SEQUENCE 


CALL  LAGiNOCLS* INDXC»ITIME tlTFNCT, ITASKA, IPBDUR ,IDFRES ) 


DESCRIPTION  OF  PARAMETERS 


NOCLS 

INDXCl  ) 

ITIME 

ITFNCT 

ITASKA 

IPBDUR 

IDFRES 


NUMBER  OF  CLASSES  TO  BE  LAGGED. 

LIST  OF  CLASSES  TO  BE  LAGGED. 

TIME  TO  WHICH  CLASSES  WILL  BE  LAGGED 
FUNCTION  OF  THE  TASK  THAT  CAUSED  THE  LAG. 
ADRESS  OF  THE  TASK  THAT  CAUSED  THE  LAG. 
DURATION  OF  THE  PROCBLOC. 

NUMBER  OF  THE  RESOURCE  CAUSING  THE  LAG. 

(0  IF  LAG  IS  DUE  TO  SYNC  OR  CORR) 


SUBROUTINES  USED 
BLOCK 


PROGRAMMER 

G.GAIDASZ 
CALSPAN 
MAY  1975 


* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

♦ 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 


CC***** ********************************************************* ******** 
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Ml 


/ ARE  N 
THERE 

ANY  CLASSES 
TO  LAG 


RETURN 


ARE 

ALL 

CLASSES 

DONE 


RETURN 


GET  ADDRESSES 
OF  CLASS  IN 
MASS  AND  LOCAL 
STORAGE 


COMPUTE 
LAG  DURATION 


UPDATE 

CLASS 

BLOCK 


OUTPUT 

LAG 

RECORD 


cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


cc* 


LSTASK  ******************************** 

* 


CC ********** ********** ********** 

cc* 

PURPOSE 

TO  CREATE  A SEQUENTIAL  LIST  OF  THE  TASKS  IN  A PROCBLOC. 
SYNCHRONIZING  TASKS  ARE  PLACED  AT  THE  BEGINNING  OF  THE 
LIST. 


CALLING  SEQUENCE 


CALL  LSTASK 


REMARKS 

ONLY  1 OF  EACH  TYPE  OF  NON-RESOURCE  UTILIZATION  TASKS 
ARE  USED.  THE  TASKS  ARE  ARRANGED  IN  THE  FOLLOWING  ORDER: 
SYNCHRONIZATION  OR  CORRELATION  TASKS. 

RESOURCE  UTILIZATION  TASKS. 

UPDATE  TASK.  (PROVIDED  BY  PROGRAM). 

SOURCE  ALLOCATION.  (SCATSA) 

GRADUATION. 

GET  SOURCE  TASK. 

TRANSFER  TASK.  (PROVIDED  BY  PROGRAM). 


1. 

2. 

3. 

4. 

5. 
6 • 
7. 


SUBROUTINES  USED 
BLOCK 
PLIST 
PBLOCK 
CBLOCK 
TBLOCK 


PROGRAMMER 

GEORGE  GAIDASZ 

CALSPAN 

MAY  1975 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


C C************ *********************************** ******** ******* ******** 


D 


II 


D1 


cc»**** *************************  lSTR4K  *********«*.»«..».*.„,,„..,. 


cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


PURPOSE 
CALLING  SEQUENCE 

CALL  LSTRAK ( LI » L2 tNPROCB » N»LIST  ) 

DESCRIPTION  OF  PARAMETERS 
* INPUT  * 


LI 

L2 

NPROCB 
* OUTPUT  * 
N 

LIST ( ) 


PROGRAMMER 

G.  GAIDASZ 
CALSPAN 
AUG  1975 


PHtHUcb  IS  INSEX  0F  FIRST  TDB  F0R  COURSE, 
POINTER  TO  INDEX  OF  LAST  TDB  FOR  COURSE 

AORESS  OF  PROCBLOC  THAT  THE  CLASS  IS  IN.’ 


NUMBER  OF  ELEMENTS  IN  LIST 

INDICES  OF  TRACK  DESCRIPTOR  BLOCKS  THAT 

HAVE  EQUAL  PRIORITIES. 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

4c 

4c 

* 

* 

* 

* 

4c 

* 

* 

* 

* 

* 

4c 

4c 
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LSTRAK 


START 


INITIALIZE 

WORKING 

VARIABLES 


ARE 

ALL 

TRACKS 

DONE 


GET  POINTER 
TO  TRACK 
FROM  SORTED 
LIST 


^ IS  \ 
TRACK 
DESCRIPTOR 
ASSOCIATED 
WITH  THIS 
„ PROCBLOC 


SAVE 
TRACK 
ADRES  IN 
LIST 


SAVE  INDEX 
AS  STARTING 
POINT  FOR 
NEXT  PRIORITY 


ANY  TRACK 

. NO 

0 

DESCRIPTORS 
\ BEEN  . 

\ SELECTED  / 

SAVE  PRIORITY 

LOOP  ON  ALL 

TRACKS  NOT  YET 

s« 

PROCESSED 

CC  ********************  **********  L ST  SRC  ******************************** 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


PURPOSE 

TO  GENERATE  A LIST  OF  ALL  THE  SOURCES  FOR  A COURSE. 


CALLING  SEQUENCE 


CALL  SRTSRCf IAOPBItlDUMP  ) 


DESCRIPTION  OF  PARAMETERS 


* INPUT  * 


1ADPB1 


IDUMP 


ADRESS  OF  GRADUATION  BLOCK  FOR  COURSE 
BEING  PROCESSED. 

DIAGNOSTIC  DUMP  SWITCH.  11-PRINT  DIAGS. ) 


SUBROUTINES  CALLED 


BLOCK 

PBLOCK 

TBLOCK 

WRUB 

WRUDB 


REMARKS 

THIS  ROUTINE  STARTS  AT  THE  RIGHTMOST  (GRADUATION)  PROCBLOC 
OF  A COURSE  AND  STEPS  BACK  THRU  THE  PROCB LOCKS  (USING  THE 
BACKWARD  POINTERS)  UNTIL  A PROCBLOC  IS  REACHED  THAT  DOES 
NOT  HAVE  ANY  BACKWARD  POINTERS.  THIS  PROCBLOC  IS  ASSUMED 
TO  BE  THE  SOURCE  BLOCK  AND  IS  CHECKED  TO  MAKE  SURE  IT  HAS 
ONE  AND  ONLY  ONE  GETSOURCE  TASK  ASSOCIATED  WITH  IT.  A 
FURTHER  CHECK  IS  THEN  MADE  TO  ASSURE  THAT  ONLY  ONE  RUDB 
IS  DEFINED  FOR  THE  SOURCE  AND  HAS  NO  ALTERNATES  OR  SECONDARY  * 
RUBS.  IF  ALL  CONDITIONS  ARE  SATISFIED,  THE  ADRESSES  OF  THE  * 
SOURCE  PROCBLOC, TASK»RUB  AND  RUDB  AND  THE  SOURCE  NUMBER  * 

ARE  SAVED  IN  ARRAYS  IN  THE  COMMON  BLOCK  SORDSC.  * 

THIS  PROCESS  IS  REPEATED  UNTIL  ALL  THE  SOURCES  IN  THE  * 

COURSE  HAVE  BEEN  IDENTIFIED.  * 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


PROGRAMMER 


G.GAIDASZ 
CALSPAN 
AUG  1975 


CC*  ' J 

CC*****************************************************^***^*^^^ 
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Iff 


CC**M****m*****«MM*MM*«  MLTCLS  ******************************** 


cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

NUMBER  OF  STUDENTS  TO  BE  ASSIGNED  TO  CLASSES.  * 
COURSE  NUMBER  * 

GRADUATION  ID.  COUNTER.  * 

I IF  IGRID=-1 1 CLASS  IS  AN  EXTRAS  CLASS)  * 

* 

* 

* 

♦ 

* 

* 

* 


PURPOSE 

FORM  MULTIPLE  CLASSES  FROM  THE  ACCUMULATED  TRAINING 
DEMANDS  ON  A COURSE 


CALLING  SEQUENCE 

CALL  MLTCLS( ITOTDtNCORSEtIGRID) 
DESCRIPTION  OF  PARAMETERS 


ITOTD 

NCORSE 

IGRID 


SUBROUTINES  USED 
NEWCLS 

PROGRAMMER 

GEORGE  GAIDASZ 

CALSPAN 

MAY  1975 


CALCULATE 
0 OF  CLASSES, 
INTERVAL  BETWEEN 
CLASSES 


SET  TIME 
TO  SCHEDULED 
GRADUATION 
TIME 


CALCULATE 
INTEGER 
CLASS  SIZE 


NEWCLS 


UPDATE 
0 OF  STUDENTS 
ALREADY 
ASSIGNED 


CALCULATE  GRAD. 
TIME  FOR 
NEXT  CLASS 


c ************************* *******  NAMF  ******************************* 


c* 

* 

c* 

SUBROUTINE  NAME 

* 

c* 

PURPOSE 

* 

c* 

RETURN  A NAME  FOR  CODE  NUMBER. 

* 

c* 

* 

c* 

CALLING  SEQUENCE 

* 

c* 

CALL  NAME(IAPRV, NUMBER, INAMF) 

* 

c* 

♦ 

c* 

DESCRIPTION  UF  PARAMETERS 

* 

c* 

* 

c* 

* EXPLICIT  INPUT  * 

♦ 

c* 

IAPRV  - ALPHANUMERIC  NAME  OF  THE  TYPE 

OF  NAME  BEING  LOOKED 

UP* 

c* 

*AB • - AIR  BASE  NAME 

* 

c* 

•Cf  - COURSE  NAME 

* 

c* 

•GF»  - GRADUATION  FUNCTION 

NAME 

* 

c* 

•Phf  - PROC  BLOCK  NAME 

* 

c* 

•PBNU*  - PROC  BLOCK  NUMFER 

* 

c* 

•R*  - RESOURCE  NAME 

* 

c* 

•RUB*  - RUB  NAME 

* 

c* 

•RUDB • - RUDB  NAME 

* 

c* 

•RUGF  • - RESOURCE  UTILIZATION 

FUNCTION  NAME 

* 

c* 

•RUTF*  - RESOURCE  UTILIZATION 

TIMING  FUNCTION 

* 

c* 

•S'  - SOURCE  NAME 

* 

c* 

•TB*  - TASK  BLOCK  NAME 

* 

c* 

•TF • - TASK  FUNCTION  NAMF 

* 

c* 

NUMBER  - CODE  NUMBER  OF  NAME  BEING  LOOKED  UP 

* 

c* 

* 

c* 

* EXPLICIT  OUTPUT  * 

* 

c* 

INAME  - ALPHANUMERIC  NAMF  BEING  RETURNED 

* 

c* 

* 

c* 

AUTHOR/PROGRAMMER 

* 

c* 

JOHN  R.  MENIG 

* 

c* 

CALSPAN  CORPORATION 

* 

c* 

2 2 APRIL  1975 

* 

c* 

* 

C ******************************************* **************************** 
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DETERMINE 
TYPE  OF  NAME 
REQUESTED 


DETERMINE 
NAME  USING 
CODE  NUMBER 


cc ******************************  neguse  ******************************** 
cc*  * 

CC*  PURPOSE  * 
CO  TO  NEGATE  TEMPORARY  UPDATES  OP  RESOURCE  INVENTORIES.  * 
CC*  (WHEN  A PRIMARY  IS  SATISFIED  BUT  A SECONDARY  CANNOT  * 
CC*  BE  SATISFIED).  * 
CC*  * 
CC*  CALLING  SEQUENCE  * 


CC*  CALL  NEGUSE  * 
CC*  * 
CC*  DESCRIPTION  OF  PARAMETERS  * 
CC*  AS  DESCRIBED  IN  SVRUS1  AND  SVRUS2  * 
CC*  * 
CC*  PROGRAMMER  * 
CC*  G.  GAIDASZ  * 
CC*  CALSPAN  * 
CC*  AUG  1975  * 
CC*  * 
cc* ****** **♦*♦***♦♦*♦♦ ***♦**♦♦♦*♦******♦♦****♦♦*♦♦♦ ********************  * 


RESOURCES 

PROCESSED 


ERRORS 

DETECTED 


LOOP  ON 
BUCKETS 
AND  ADD  RES 
USED  TO 
TEMPORARY 
INVENTORY 


up 


mm 


NEGUSE 


LOOP  ON 
LIST  OF 
RESOURCES 
USED 


I 


CC******************************  NEWCLS  **************************^*^<[ 

L 

CC*  PURPOSE  * 

CC*  TO  GENERATE  A CLASS  BLOCK.  ! 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


CALLING  SEQUENCE 

CALL  NEWCLS ( NSTDStNCORSEf I GDTEfIGRID) 
DESCRIPTION  OF  PARAMETERS 


NSTDS 

NCORSE 

IGDTE 

IGRID 


SUBROUTINES  USED 
CLSDMP 

PROGRAMMER 

GEORGE  GAIDASZ 

CALSPAN 

MAY  1975 


NUMBER  OF  STUDENTS  IN  CLASS. 

COURSE  NUMBFR 

GRADUATION  DATE 

GRADUATION  ID  COUNTER 

(IF  IGRID=-1, CLASS  IS  AN  EXTRAS  CLASS) 


CC*  * 

^^* *******************  *****************************  4>***##*4t*:fc*****4t**£^$ 
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NUMBER 


C ************ *********  ********** * 

c* 

SUBROUTINE 


C* 

C* 

C* 

C* 

C* 

C* 

c* 

c* 

Q* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c * 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 


************** *************+^ 

♦ 

NUMBER  * 

* 

A CUDE  NUMBER  FOR  A NAME.  * 

* 
* 
* 
* 
* 
* 


PURPOSE 

RETURNS 


CALLING  SEQUENCE 

CALL  NUMBER ( 1 APRV »NUMB  »NAME ) 

DESCRIPTION  OR  PARAMETERS 


* EXPLICIT  INPUT  * 


IAPRV  - ALPHANUMERIC  NAME  OF  THE  TYPE 

' AL ' 

— 

AIR  EAST  NAME 

•C« 

— 

COURSE  NAME 

•GF  • 

— 

GRADUATION  FUNCTION 

*PB  * 

— 

PROC  BLOCK  NAME 

' P BN  0 * 

— 

PROC  BLOCK  NUMBER 

*R  • 

— 

RESOURCE  NAME 

'RUB  ' 

- 

RUB  NAME 

*RUDB ' 

- 

RUDB  NAME 

•RUGF ' 

- 

RESOURCE  UTILIZATION 

•RUTF • 

— 

RESOURCE  UTILIZATION 

•S' 

— 

SOURCE  NAME 

•T  £ • 

- 

TASK  BLOCK  NAME 

'TE* 

— 

TASK  FUNCTION  NAME 

OP  CODE  BEING  LOOKED 


NAME 


FUNCTION  NAME 
TIMING  FUNCTION 


name  - ALPHANUMERIC  NAME  BEING  LOOKED  UP 


* explicit 

NUMB  - C(JDL  NUMBER 

AUT  HGR/PROGRAMMf  R 
JOHN  R.  MENIG 
CALSPAN  CORPORATION 
27  APRIL  1 97i> 


OUTPUT  * 
RETURNED 


* 

UP* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


c*^********************^^^  *******  *t  ********** 
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CC ******** ******** ******** ******  PBLOCK  ******************************** 
CC* 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


PURPOSE 

TO  PRINT  A PROCBLOCK. 


CALLING  SEQUENCE 

CALL  PBLOCK ( IAORS * IBLOCK ) 


DESCRIPTION  OF  PARAMETERS 


IADRS 
IB  LOCK 

PROGRAMMER 

G.  GAIDASZ 
CALSPAN 
MAY  1975 


AORESS  OF  PROCBLOCK 
FIRST  WORD  OF  PROCBLOC 


cc*** ♦*****♦♦♦♦♦♦*♦*♦*♦***********♦♦***♦ ***********  ********************* 
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CC******************************  PLI  ST  ********************************* 

CC*  * 

CC*  PURPOSE  * 

CC*  TO  PRINT  THE  LIST  OF  TASKS.  * 

CC*  * 

CC*  * 

CC*  CALLING  SEQUENCE  * 

CC*  * 

CC*  CALL  PLIST  * 

CC*  * 

CC*  PROGRAMMER  * 

CC*  G.  GAIDASZ.  * 

CC*  CALSPAN  * 

CC*  MAY  1975  * 

CC*  * 

cc****************************************** ******* ********************* 

! 

L 


0 


. 


PRINT  THE 
LIST  OF 
TASKS 


C C*** ***************** ********** 

cc* 

CC*  PURPOSE 

CC*  SELECT  CURRENTLY  ACTIVE 

CC*  TIME  ANO  PRIORITY. 

CC* 

CC* 

CC*  CALLING  SEQUENCE 
CC* 

CC*  CALL  PREPC 

CC* 

CC* 

CC*  SUBROUTINES  USED 
CC*  CLSDMP 

CC*  SRTCTP 

CC* 

CC*  PROGRAMMER 

cc*  GEORGE  GA1DASZ 

CC*  CALSPAN 

CC*  MAY  1975 

CC* 


PRE PC  ********************************* 

* 

CLASSES  AND  SORT  IN  ORDER  BY  * 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


CC****************** 


* 

*********** 
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START 


INITIALIZE 
COUNT  OF 
CURRENT 
CLASSES 


LOOK  UP 
FIRST  CLASS 


' CLASS  N 
TIME  GREATER 
THAN  NEXT 
BREAK 

\ TIME  ^ 


UPDATE 
TIME  OF 


SAVE  CLASS 
DESCRIPTION 
ESSENTIALS 
IN  SEOUFNTIAL 
ARRAY 


GET  POINTER 
TO  NEXT  CLASS 


SOFT 
SELECTED 
CLASSES  ON 
TIME  AND 
PRIORITY 


SET  CURRENT 
TIME  TO 
NEXT  BREAK 


r 


^ *******  ****************  *********  PTBDMP  ******************************** 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


PURPOSE 

TO  PRINT  A DUMP  OF  THE  PREDETERMINED  TRANSFER  BLOCKS 
STORAGE • 


CALLING  SEQUENCE 


CALL  PTBDMP ( I ADRS I 


DESCRIPTION  OF  PARAMETERS 


IADRS 


ADRESS  OF  BAD  PTB 


PROGRAMMER 

G.  GAIDASZ 
CALSPAN 
MAY  1975 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 


CC  **************************************♦*♦*************************,,,*** 


0 


CC ************ ****** ************  PUTCLS  ******************************** 

r r * 


cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


PURPOSE 

TO  REPLACE  THE  CONTENT  OF  A CLASS  BLOCK  IN  LINKED  STORAGE. 

CALLING  SEQUENCE 

CALL  PUTCLS< INDEX, IA,N) 

DESCRIPTION  OF  PARAMETERS 


INDEX 
IA  ( ) 

N 


PROGRAMMER 

G.  GAIDASZ 
CALSPAN 
MAY  1975 


ADRESS  OF  CLASS  BLOCK  IN  MaSS  STORAGE. 
LOCAL  STORAGE  FOR  CLASS  BLOCK. 

NUMBER  OF  WORDS  IN  PROCBLOC  TO  BE  WRITTEN 
IN  MASS  STORAGE. 


CC*  * 

CC ****************************** ************** ** ************************ 
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cS********************— ******  PUTPTB  ******************************** 

CC*  PURPOSE  * 

CC*  TO  CREATE  A PREDETERMINED  TRANSFER  BLOCK.  1 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


CALLING  SEQUENCE 

CALL  PUTPTB ( IPRUPtNXT t IBLKN) 
DESCRIPTION  OF  PARAMETERS 


* INPUT  * 
IPRUP ( ) 

NXT  ( ) 

* OUTPUT  * 
IBLKN 

PROGRAMMER 

G.  GAIDASZ 
CALSPAN 
MAY  1975 


NUMBER  OF  STUDENTS  TO  BE  SENT  ALONG  EACH  ONE 
OF  THE  5 BRANCHES  OF  THE  PRUCBLOC. 

ADRESS  OF  THE  NEXT  PTB  ALONG  THE  TRACK. 


ADRESS  WHERE  PTB  WAS  STORED. 


******************** 
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I ( 


(„****  *********  ****■<(*#  *******,!,,,;***  PUT  SDR  ***************************** 

C*  * 

SUBROUTINE  PUT  SDK  * 

PURPOSE  * 

WRITES  QUANTITY  OF  A GIVEN  SOURCE  FOR  A GIVEN  PERIOD.  * 

CALLING  SFCUENCE  * 

CALL  PUTSOR(ISORfIUtIT2.IAPPAY)  * 

DESCRIPTION  OF  PARAMETERS  * 

* 

* 


C* 

G* 

C* 

C* 

C* 

C* 

C* 

C* 

C* 

C* 

C* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 


I SOP 

IT1 

IT2 


♦ EXPLICIT  INPUT  * 


- SOURCE  NUMBER 

- BFG  INNING  OF  INTFRVAL 

- END  OF  INTERVAL 


A UTHOK/PkUG HAMMER 
JOHN  k.  ME NIG 
CALSPAN  CORPORATION 
29  APRIL  1975 


C* 

C **************** ********** C********  ******  ******  *******  *******  *********** 


" SOURCE 
IN  CORE  FOR 
TIME  PERIOD 
REQUESTED 


ERROR 

MESSAGE 


CYCLE  THRU 
ALL  BUCKETS 
IN  THIS  TIME 
INTERVAL 


/'ALL  N 
BUCKETS 
PROCESSED 


/ IS  \ 
THERE  A 
CELL  FOR  THIS 
BUCKET  IN 
SOURCE 
v LIST  . 


■'"OUANTITYX 
TO  BE  STORED 


THERE  A 
CELL  FOR  THIS 
BUCKET  IN 
SOURCE 


CHANGE 
QUANTITY 
STORED 
IN  CELL 


INSERT  A 
CELL  FOR 
THIS  BUCKET 
AND  QUANTITY 
IN  LIST 


C ******** ***********$*  ***9***^**$:  putr  r s 

C* 

SUBROUTINE 


C* 

C* 

C* 

C* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 


******** ********************* 

* 

PUTPES 


PURPOSE 

WRITtS 


QUANTITY  OP  A GI'<FN  RESOURCE  FOR  A GIVEN  PERIOD 


CALLING  SEQUENCE 

call  putre s( IRES* iti » it? ,i array ) 

DESCRIPTION  OP  PARAMETERS 

* EXPLICIT  INPUT  * 

IRES  - RESOURCE  NUMBER 

IT1  - BEGINNING  OP  INTERVAL 

1T2  - END  UP  INTERVAL 

A UTHOR/PRUliR AMMf  R 
JOHN  R.  MENIL 
CALSPAN  CORPORATION 
2Q  APRIL  197b 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


C*  *********************  ***  + **$.1,  ******  ***##  + #*  ********************* 


rr***** *************** **********  RFMCLS  ******************************** 

L 

CC*  PURPOSE  * 

CC*  TO  FREE  THE  STORAGE  SPACE  OCCUPIED  BY  A CLASS  BLOCK.  * 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


CALLING  SEQUENCE 

CALL  REMCLS ( IADRSI 
DESCRIPTION  OF  PARAMETERS 


IADRS 

SUBROUTINES  USED 
CLSDMP 

PROGRAMMER 

G.GAIDASZ 
CALSPAN 
MAY  1975 


ADRESS  OF  CLASS  TO  BE  REMOVED  FROM  STORAGE. 


CC*  * 
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REMCLS 


cc ******************** **********  remptb  ******************************** 

cc* 
cc* 
cc* 


cc* 

cc* 

cc* 

cc* 


PURPOSE: 

TO  FREE  THE  STORAGE  OCCUPIED  BY  A PREDETERMINED  TRANSFER 


BLOCK,. 


CALLING  SEQUENCE 


* 

* 

* 

* 

* 

* 

* 


CC* 

CC* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


CALL  REMPTb( 1AORS) 

DESCRIPTION  OF  PARAMETERS 

I ADRS  ADRESS  OF  PTb  TO  BE  REMOVED  FROM  STORAGE. 

SUBROUTINES  USED 
PTBDMP 

PROGRAMMER 

G.  GAIDASZ 
CALSPAN 
MAY  1*>75 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


BLOCK? 


LINK  TO 
FREE  SPACE 


SET  II  TO 
ADRSOF 
FIRST  PTB 


UPDATE 
POINTER 
TO  FREE 
SPACE 


REMOVE 

PTB 


UPDATE 

LINK 


WE  ARE  LOOKING 


RETURN  CORE 
TO  FREE  SPACE 


ERROR 


SET  POINTER 
TO  LAST  PTB 
TO  II 


SET  II  TO 
ADRSOF 
NEXT  PTB 


UPDATE 

PTB 

COUNT 


PURPOSE 

ERING  RESOURCE  INVENTORY  INTO  LOCAL  STORAGE. 


cc 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


CALLING  SEQUENCE 

CALL  RESINV(IRhSNU,LlTlWl,LITrM2»rTIMEltITIMEZ) 

DESCRIPTION  OF  PARAMETERS 


CC*  * INPUT  * 

CC* 


* 


CC* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


IRES NO 

LIT! Ml 

LIT  I M2 
ITIMI  I 
ITIME2 


RESOURCE  NUMBER. 
lower  limit  of  time 

IS  NEEDED  BY  ANY  OF 
UPPER  LIMIT  OF  TIMF 
IS  NEEDED  BY  ANY  of 
LOWER  LIMIT  O*-  TIME 
IS  NEEDED  BY  ACTIVE 
UPPER  LIMIT  OF  TIME 
IS  NEEDED  BY  ACTIVE 


FDR  WHICH  THIS  RESOURCE 
THE  CURRENT  TASKS. 
for  WHICH  THIS  RESOURCE 
THE  CURRENT  TASKS. 

EOR  WHICH  THIS  RESOURCE 
TASK 

FOR  WHICH  THIS  RESOURCE 
TASK. 


* OUTPUTS  VIA  COMMON  RES  * 


I T 1 ( ) 

IT2(  ) 
IA1 
IA2 
INDX1 

INDX2 

NBI 


THEORETICAL  BUCKET  NUMBER  OF  BUCKET  CORRES- 

STARTSGATnTIME~n,<ASSUMING  KES’  INVtNT0RY 
THEGRLTICAL  BUCKET  NUMbER  OF  BUCKET 
CORRESPONDING  TO  LITIM2. 

THEURLTICAL  BUCKET  NUMbER  OP  BUCKET 
CORRESPONDING  TO  ITIMEU 
THEORETICAL  BUCKET  NUMBER  L*1  BUCKET 
CORRESPONDING  TO  ITIMt2. 

POINTER  TO  ELF  ME NT  IN  ARRAY  INVRES  THAT 
CORRESPONDS  TO  THE  •HIGh-TIHE*  BUCKET 
UP  THE  DESIRED  RF$.  INVENTORY. 

PU1NTER  TO  ELEMENT  IN  ARRAY  INVRES  THAT 
CORRESPONDS  TO  THE  'LOW-TIME*  BUCKET 
UP  THE  DESIRED  RF  S . INVENTORY . 

NUMBER.  OF  RESOURCE  BUCKETS  REQUIRED  TU 
COVER  THE  ACTIVE  PROCBLOC. 


SUBROUTINES  USED 
GET RES 


* 

* 

* 

>> 

* 

* 

* 

* 

v 

* 

* 

* 

* 

* 

* 

* 

* 

* 

# 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


CC*** 


CONTINUED 


* 

*** 
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CC***  RES INV  - CONTINUED  ♦** 

cc*  * 
CC*  * 
CC*  REMARKS  * 
CC*  A LIST  OF  TASKS  WHICH  MUST  BE  EXECUTED  SIMULTANEOUSLY  * 
CC*  IS  CREATtD  BY  EIThLR  LSTASK  OP.  SYNCT.  EXECT  PROCESSES  * 
CC*  THE  TASKS  IN  THE  LIST  ONE  AT  A TIME.  IN  THE  CASE  OF  * 
CC*  RESOURCE  UTILIZATION  TASKS*  EITHER  ALL  Uk  NONE  GET  DONE.  * 
CC*  FOR  THIS  REASON  THE  INVENTORIES  OF  THE  RESOURCES  REC'UI  RED  * 
CC*  ARE  PLACED  IN  A TEMPORARY  STORAGE  AREA  UNTIL  THE  DECISION  * 
CC*  TO  MAKE  A PERMANENT  UPDATE  CAN  eF  MADE.  WHEN  THF  LIST  Oc  * 
CC*  TASKS  IS  CREATED  THE  MAXIMUM  TIME  EXTENT  OF  THE  TASKS  IS  * 
CC*  SAVED  IN  ORDER  TO  ASSURE  THAT  THE  RESOURCE  INVENTORY  * 
CC*  BROUGHT  INTO  LOCAL  STORAGE  INCLUDES  ALL  THE  TIME  PERIODS  * 
CC*  THAT  MAY  BE  REQUIRED.  * 
CC*  SUBROUTINE  RESINV  CHECKS  TO  SEE  WHFTHER  THE  RESOURLl  BEING  * 
CC*  PROCESSED  IS  ALREADY  IN  LOCAL  STORAGE,  AND  IE  NOT  CALL  * 
CC*  SUb.  GETRES  TO  FETCH  IT.  THFN  IT  LALCULATlS  THE  POINTERS  * 
CC*  TO  THE  BUCKETS  REC'UI  RE  D BY  THE  CURRENT  TASK, TAKING  INTO  * 
CC*  CONSIDERATION  THE  TIME-ORDER  REVERSAL  UF  ThE  WORKING  * 
CC*  INVENTORY  ARRAY  * 
CC*  * 
CC*  PROGRAMMER  * 
CC*  G.  GAIDASZ  * 
CC*  CALSPAN  * 
CC*  MAY  IV7S  * 
CC*  * 
c c******* ************************* *****************  ************* ******** 


CC***** ********** ***************  RES  USE 

cc* 

CC*  PURPOSE 

CC*  TO  CALCULATE  THE  RESOURCES 

CC*  TASK. 

CC* 


******  * ***  * ******  * *****  ******  **  * 

* 
* 
* 
* 
* 


USED  BY  A CLASS  PERFORMING  A 


CC*  CALLING  SEQUENCE 

CC*  CALL  RESUSE< IFRES,LAGTME ) 

CC* 


* 

* 

* 


CC*  DESCRIPTION  OF  PARAMETERS 


* 


CC* 

cc* 

* OUTPUTS  * 

cc* 

IEKES 

NUMBER  OF  RESOURCE  CAUSING  ALLOCATION 

cc* 

FAILURE. 

cc* 

cc* 

LAGTME 

TIME  TO  WHICH  CLASS(ES)  MUST  BE  LAGGED. 

cc* 

THE  ABOVE 

PARAMETERS  HAVF  MEANING  ONLY  IF  ' IFATL 1 

cc* 

cc* 

IN  COMMON 

ECb  IS  NOT  ZERO 

♦ 

* 

* 

* 

+ 

* 

* 

* 

* 


CC*  SUBROUTINES  CALLED 

CC*  RESINV 

CC*  CALQ 

CC*  RUSER 

CC*  SVRUSE 

CC*  NEGUS fc 

CC*  UPDATE 

CC*  DETLAG 

CC*  BLOCK 

CC*  HP.  UR 

CC*  WRUDB 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


CC* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


* 

REMARKS  * 

RESOURCE  UTILIZATION  BY  A CLASS  PERFORMING  A TASK  IS  * 

DEFINED  bY  THE  RESUURCE  UTILIZATION  BLOCK  (RUB)  * 

ASSOCIATED  WITH  THE  TASK.  THE  RUB  CONTAINS  A LIST  OF  * 

POINTERS  TO  RESUURCE  UTILIZATION  DESCRIPTION  BLOCKS  (RUDCS).  * 


EACH  RUDB  DEFINES  THE  RESOURCE  INVOLVED,  WHETHER  RESOURCE  * 
CONSUMPTION  IS  OUNP  BY  INDIVIDUALS,  BY  THE  CLASS  OR  IS  A * 
FUNCTION  OF  THE  UTILIZATION  OF  THE  PRIMARY  RESOURCE.  * 

THE  RUDB  ALSO  DESCRIBES  HOW  THE  RF SOURCE  IS  CONSUMED  AS  * 

A FUNCTION  OF  TIME  (ARBITRARY  OR  UNIFORM)  AND  WHETHER  * 

SECONDARY  ANU/UR  ALTERNATE  RESOURCES  EXIST.  * 

THE  CURRENT  CODE  PERMITS  ONE  LEVEL  OF  SECONDARY  RESOURCES.  * 
BOTH  PRIMARY  AND  SECONDARY  RESOURCES  ARE  ALLOWED  TO  HAVE  * 

ANY  NUMBER  OF  ALTERNATE  RESOURCES.  * 

WHEN  A DEMAND  FOR  A RESOURCE  CANNOT  BE  SATISFIED  AND  * 

ALTERNATE  RESOURCES  DC)  NOT  EXIST, THREE  USER  SELECTED  * 

OPTIONS  CAN  BE  EXERCIZED:  1.-  STOP  THE  RUN,  2.-  CONTINUE  * 
THE  RUN  AFTER  INDICATING  THE  RESOURCE  SHORTAGE.  3.-  LAG  * 

THE  CLASS  TO  A PERIOD  IN  TIME  WHEN  THE  MISSING  OR  SCARCE  * 

RESOURCE  IS  AVAILABLE.  * 

* 

PROGRAMMER  * 

G.  GAIDASZ  * 

CALSPAN  * 

AUG  1975  * 


CC* ************************************************  *************  ******** 


START 


BRING  RUB 
FOR  TASK 
INTO  LOCAL 
STORAGE 


LOOP  ON  RUOBS 


SAVE  RESOURCE 
UTILIZATION 


•RING  IN  SECONDARY 
RODS  INTO  LOCAL 
STORAGE 


BRING  RUDB 
INTO  LOCAL 
STORAQE 


RESINV 

CALO 

RUSER 


SECONOARV 
RUOBS 
^ DONE  ^ 


^ II  ^ 

THIS  A 
COMPOSITE 
RESOURCE 


BRING 
SECONDARY 
nuDB  INTO 
LOCAL 
STORAGE 


NEGATE 

ALL 

TEMPORARY 

UPDATES 


BRING  IN 
RUDB  FOR 
ALTERNATE 


OETLAG 


SAVE 

RESOURCE 

UTILIZATION 


^ NAS  N. 

REQUIREMENT 

NO 

S 1 

. / there  N 

Bk  A At  ii  TEOkllTC 

/ PRIMARY  \ 
RESOURCE 

^ NO 

Xhk 

OPTION^S 

SATISFIED  / 

/ 1 

AN  AL 'tUNA 1 1 

\ ' > 

HAVE  AN 

■\alternate  y 

X'y 

X,GN0P,t 

I t 


C ********************* **********  RUSER  ********************************* 


T CC* 

* 

! CC* 

PURPOSE 

* 

CC* 

ALLOCATE  RESOURCES  FROM  INVENTORY  TO  MEET  CALCULATED 

♦ 

CC* 

CONSUMPTION. 

* 

CC* 

* 

CC* 

* 

CC* 

CALLING  SEQUENCE 

* 

CC* 

* 

CC* 

Call  RUSERUQTY.Nb, INVRES, 11*12, ITOTQ,  ICODE) 

* 

CC* 

* 

CC* 

DESCRIPTION  OF  PARAMETERS 

* 

CC* 

* 

CC* 

* INPUT  * 

* 

CC* 

* 

CC* 

1 1 

IQTY ( > 

ARRAY  CONTAINING  THE  RESOURCE  QUANTITIES. 

* 

CC* 

THAT  SHOULD  BE  CONSUMED  IN  EACH  BUCKET. 

* 

CC* 

NB 

NUMBER  OF  ENTRIES  IN  IQTY. 

* 

CC* 

INVRES() 

RESOURCE  INVENTORY  ARRAY. 

* 

CC* 

11 

INDEX  OF  FIRST  PERTINENT  ENTRY  IN  INVRES. 

* 

CC* 

12 

INDEX  OF  LAST  PERTINENT  ENTRY  IN  INVRES. 

* 

CC* 

ITOTQ 

TOTAL  QUANTITY  OF  RESOURCE  REQUIRED  TO 

* 

CC* 

SATISFY  CURRENT  DEMAND. 

* 

CC* 

* 

CC* 

* OUTPUT  * 

* 

CC* 

* 

CC* 

ICODE 

IF  0,  ALLOCATION  WAS  SUCCESSFULL. 

* 

CC* 

IF  lv  ALLOCATION  WAS  UNSUCCESSFULL . 

A 

CC* 

* 

CC* 

PROGRAMMER 

* 

CC* 

GEORGE  GA1DASZ 

* 

CC* 

CALSPAN 

* 

CC* 

MAY  1975 

* 

CC* 

* 

CC********** ********** ***************************** ********************* 


u 


'j 

I 

J I 


383 


I 


* - 


* * 


r 

£ * 


I 

I 

I 

1 


CC******************************  SCATSA  ******************************** 
CC*  * 

CC*  PURPOSE  * 


CC*  TO  SELECT  THE  TRAINEE  SOURCES  FOR  A CLASS. 

CC*  SELECTION  IS  BASED  UPON. 

CC*  1.  ESTIMATED  DURATION  OF  CUURSF. 

CC*  2.  SOURCE  AVAILABILITY  AT  REQUIRED  TIME. 

CC*  3.  TRANSFER  PERCENTAGES  AND  PRIORITIES  SPFCIF1FD 

CC*  FOR  THE  COURSE. 

CC* 

CC*  CALLING  SEQUENCE 
CC*  CALL  SCATSA 

CC* 

CC*  SUBROUTINES  USED 

CC*  LSTRAK 

CC*  ALLOCU 

CC*  ALL  OCA 

CC*  FRMPTB 

CC*  PUTCLS 

CC* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


REMARKS 

SCATSA  USES  THE  TRACK  DESCRIPTOR  BLOCKS  CREATED  BY  TRACKD 
TO  LOOK  UP  SOURCE  AVAILABILITY  FOR  THE  TRACKS  OF  THE  COURSE. 
THE  TRACK  DESCRIPTOR  BLOCKS  FOR  EACH  COURSE  ARE  SORTED 
IN  DESCENDING  URDER  OF  CUMULATIVE  PRIORITY  BY  TRACKD. 

IN  SCATSA  SUBROUTINE  LSTRAK  IS  USED  TO  EXTRACT  THE  POINTERS 
TO  A GROUP  OF  SOURCES  THAT  HAVE  EQUAL  PRIORITY. 

SUBROUTINE  ALLOCU  IS  THEN  USED  TO  TRY  TO  ALLOCATE  THE 
PROPER  NUMBER  OF  TRAINEES  TO  EACH  TRACK  AS  SPECIFIED 
BY  THE  TRANSFER  PROPORTIONS  SPECIFIED  FOR  THE  COURSE. 

IF  ALL  TRAINEES  IN  THE  CLASS  HAVE  BEEN  ALLOCATED  BY 
TRACKD,  SUBROUTINE  FRMPTB  IS  INVOKED. 

IF  THE  DESIRED  PROPORTIONING  COULD  NOT  BE  SATISFIED  BY 
ALLOCD  THEN  SUBROUTINE  ALLOCA  IS  CALLED.  ALLOCA  LOOPS 
ON  THE  SAME  PKIUR1TY  TRACKS  AS  ALLOCD,  BUT  IT  ALLOCATES 
AS  MANY  STUDENTS  AS  POSSIBLE  TO  THE  TRACKS  THAT  HAVE  ANY 
REMAINING  SOURCE  INVENTORY. 

IF  THE  CLASS  CANNOT  BE  ALLOCATED  TO  THE  SOURCES  OF  THIS 
PRIORITY  GROUP,  THEN  THE  PROCESS  IS  REPEATED  USING  THE 
SET  OF  NEXT  LOWER  PRIORITY  TRACKS. 

AFTER  ALL  TRAINEES  HAVE  BEEN  ALLOCATED  TO  THEIR  RESPECTIVE 
SOURCES,  SUBROUTINE  FRMPTB  IS  INVOKED. 

THE  PURPOSE  OF  FRMPTB  IS  TO  CRFATE  THE  PREDETERMINED 
TRANSFER  bLOCKS  (PTBSJ  FOR  THE  CLASS  BEING  PROCESSED. 

THE  PTBS  FORM  A TREE  STRUCTURE  THAT  ORIGINATES  AT  THE 
PROCBLGC  FROM  WHICH  SCATSA  WAS  INVOKED  AND  HAS  A LINKED 
ELEMENT  FOR  EACH  NODE  OF  THE  TRACKS  TO  THE  LEFT  OF  IT. 

THF  PTB  INDICATES  HOW  MANY  STUDENTS  SHOULD  TAKE  EACH  ONE 
OF  THE  FIVE  POSSIBLE  BRANCHES  AT  EACH  NODE  AND  A POINTER 
TO  THE  NEXT  NODE  (IF  ANY)  ALONG  EACH  ONE  OF  THE  FIVE 
BRANCHES. 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


* 
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STUDENTS  BEEN 
ALLOCATED 


ALL  STUDENTS 
BEEN 

ALLOCATED 


FRVPTB 


MM 


mm 


SCATSA 


START 


SET  LIMITS 
OF  SEARCH 
FOR  RL-TRACK 
DESCRIPTORS 
FOR  THIS  COURSE 


INITIALIZE 
WORKING 
VARIABLES  _ 
CALCULATE  SOURCE" 
ALLOCATION  TIME 


GET  LIST  OF 
TRACKS  OF 
SAME  PRIORITY 
ASSOCIATED 
WITH  THIS 
PROCBLOC 


ALLOCD 


ALLOCA 


CC******************************  SPLIT  ********************************* 

cc*  * 

CC*  PURPOSE  * 

CC*  TO  SPLIT  A CLASS  INTO  MULTIPLE  CLASSES.  * 

CC*  IF  SUB.  SCATSA  H*S  BEEN  ALREADY  EXECUTED  FOR  THIS  CLASS  * 

CC*  THEN  THE  PREDETERMINED  TRANSFER  PROPORTIONS  WILL  BE  USED*  * 

CC*  OTHERWISE  THE  PRUCBLOC  TRANSFER  PROPORTIONS  WILL  BE  USED.  * 


CALLING  SEQUENCE 


CALL  SPLIT 


REMARKS  * 

IF  SCATSA  HAS  NOT  BEEN  EXECUTED  FOR  THIS  TRACK,  SPLIT  * 

CALCULATES  THE  NUMBER  OF  STUDENTS  THAT  SHOULD  BE  SENT  * 

ALONG  EACH  BRANCH  FROM  THE  PROPORTIONS  SPECIFIED  FOR  * 

EACH  LEFT  BRANCH  OF  THE  ACTIVE  PROCBLOC.  * 

IF  SCATSA  HAS  BEEN  EXECUTED  FOR  THIS  TRACK  THEN  THE  * 

NUMBER  OF  STUDENTS  TO  BE  SENT  ALONG  EACH  BRANCH  IS  TAKEN  * 

FROM  THE  APPROPRIATE  PfB.  * 

AFTER  THE  CLASS  HAS  BEEN  SPLIT  INTO  THE  DESIRED  PROPORTIONS,  * 
NEW  CLASSES  ARE  CREATED  FROM  EACH  OF  THE  NEW  GROUPS  AND  * 

THE  OLD  CLASS  IS  RELEASED.  THE  UNIQUE  CLASS  NUMBER  IS  * 

ASSIGNED  TO  EACH  OF  THE  NEW  CLASSES  AND  THE  CORRECT  PTB  * 

ADRESS  IS  ENTERED.  IF  APPROPRIATE  * 


i L 


CC*  SUBROUTINES  USED  * 
CC*  CBLOCK  * 
CC*  REMCLS  * 
CC*  GETPTB  * 
CC*  WPTB  * 
CC*  NEWCLS  * 
CC*  * 
CC*  PROGRAMMER  * 
CC*  GEORGE  GA1DASZ  * 
CC*  CALSPAN  * 
CC*  MAY  IV7S  * 
CC*  * 
CC* *********************** ****♦*♦***♦*♦*♦**♦♦****♦*♦♦**♦♦***♦ *********** 


tl 


CC ******************************  SRTCTP  ******************************* 

CC* 

PURPOSE 

UTILITY  ROUTINE  TO  SORT  CLASSES  IN  ORDER  BY  GRADUATION 
DATE  AND  PRIORITY. 


CALLING  SEQUENCE 


CALL  SRTCTP(1T1,IT2,N*IA» 
DESCRIPTION  OF  PARAMETERS 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC********************************************************************* 


ITIO 
IT2  ( ) 
N 

I A ( ) 


ARRAY  OF  MAJOR  KEYS. 

ARRAY  OF  MINOR  KEYS. 

NUMBER  OF  ELEMENTS  TO  BE  SORTED. 

ARRAY  OF  POSITION  POINTERS  TO  SORTED  RECORDS. 


REMARKS 

METHOD  IS  AN  INDEX  BUBBLE  SORT. 

PROGRAMMER 

GEORGE  GAIDASZ 

CALSPAN 

MAY  1975 


I i 


D 


389 


i 


■ { 


SRTCTP 


1 


1 

| 


390 


******************************** 

* 


CC******************************  SRTTDE 
CC* 

PURPOS  E 

TO  DO  AN  INDEX  SORT  ON  THE  TRACK  DESCRIPTOR  BLOCKS  FOR 
A COURSE.  THE  SORT  IS  IN  DESCENDING  ORDER  ON  PRIORITY. 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


CALLING  SEQUENCE 

CALL  SRTTDb(Il»I<!  »CUMPTY » I TDBST ) 
DESCRIPTION  OF  PARAMETERS 


* INPUT  * 

11 

12 

CUMPTY ( ) 

♦ I/O  ♦ 

lTDbST ( ) 

REMARKS 

METHOD  IS 

PROGRAMMER 

G.  GA1DASZ 
CALSPAN 
AUG  1975 


POINTER  TO  FIRST  ELEMENT  TO  BE  SORTED. 
POINTER  TO  L*ST  ELEMENT  TO  BL  SORTED. 
SORT  FIELD. 

INDEX  OF  SORTED  ELEMENTS 
A INDEX  bUBBLE  SORT. 


* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 


SRTTDB 


START 


GENERATE 
LIST  OF 
INDICES 


NO. 

OF 

POINTS 


INDEX 

BUBBLE 

SORT 

IN  DESCENDING 
ORDER  ON 
PRIORITY 


'7  "" " 


1 

cc* 

T 

cc* 

W» 

cc* 

cc* 

I* 

cc* 

■.  Ml 

cc* 

cc* 

I* 

cc* 

cc* 

m * 

cc* 

cc* 

cc* 

ii 

cc* 

i 

cc* 

' ' I i 

cc* 

1 1 1 

I . 

cc* 

cc* 

1 1 

ll  «■* 

cc* 

< 1 11 

cc* 

cc* 

I 

cc* 

3 * 

1 If 

* * 

cc* 

cc* 

cc* 

cc* 

cc* 

1 1 

cc* 

i > <m  * 

cc* 

cc* 

) ** 

cc* 

* 

cc* 

1 m-» 

1 

cc* 

|;  9 - 

L 

cc* 

cc* 

cc* 

i I* 

cc* 

*» 

cc* 

r 

cc* 

cc**« 

PURPOSE 

s«VE  PERTINENT  INVENTORY  Of  the  RESOURCE  bL ing  processed. 
CALLING  SEQUENCE 

CALL  SVRUS1 

DESCRIPTION  UP  PARAMETERS. 

♦ IMPLICIT  INPUT  VIA  COMMON  * 

INDX1  PHTMT^c  Tn  c.  cl-..-. 


INDX2 


NSAVE 


ISAVE 


* iiunnnR  ur 

* IMPLICIT  OUTPUT  VIA  COMMON  * 


POINTER  TO  ELEMENT  IN  ARRAY  INVRES  THAT 

srsMM?  ,thp  f,rst 

BE  USED  BY  THE  CURRENT  CLASS 

POINTER  TO  FI.EMENT  IN  ARRAY  INVRES  THAT 

BE  S PD0RVS,^  ™F  LAS1  “UCKCT  THAT  h!  V 
BE  USED  BY  THE  CURRENT  CLASS. 

toMnoh.OF  RFS0urce  tnventories  saved  UP 

UT Tyt A^rnMum,0*  BUCKETS  S‘VtD  UP  TO  NOW. 


SAVE0  VALUE  of  INDX1 
JAOI^n  SAVED  VALUE  OF  INDX2 

«*“«■»  savedFre  source  ^inventor  i es.V^°  ,N  ,AUSF0- 

REMARKS 

TT:rcrETiruP^^^T?REEP"JrESNjRSsTyfL,,^rNT11RY  BFF0RE 

NECESSARY  to  CACCULATE%HE‘°AiT2uUCONSUSHPnON.C‘UFD  IF 

PROGRAMMER 
G.GAIDAS2 
AUG  1975 
CALSPAN 


CC ******************************  SVRUS2  ******************************** 

cc*  * 

CC*  PURPOSE  * 

CC*  CALCULATE  ACTUAL  USAGE  OF  CURRENT  RESOURCE  BY  SUBTRACTING  * 

CC*  CURRENT  INVENTORY  FROM  PREVIOUS  INVENTORY.  * 

CC*  * 

CC*  CALLING  SEQUENCE  * 

CC*  * 

CC*  CALL  SVRUS2  * 

CC*  * 

CC*  DESCRIPTION  OF  PARAMETERS.  * 

CC*  SAME  AS  IN  SVRUS1,  EXCEPT  THAT  IAUSEDO  IS  UPDATED  TO  * 

CC*  INDICATE  CONSUMPTION  BY  SUBTRACTING  THE  CURRENT  INVENTORY  * 

CC*  FROM  IT  * 

CC*  * 

CC*  REMARKS  * 

CC*  SVRUS2  IS  ONLY  INVOKED  FOR  SATISFIED  PRIMARY  COMPOSITE  * 

CC*  RESOURCES  AND  THEIR  ASSOCIATED  SECONDARIES.  RESTORATION  * 

CC*  OF  OTHER  RESOURCES  (IN  CASE  OF  RESOURCE  ALLOCATION  * 

CC*  FAILURE)  IS  HANDLED  BY  NOT  CALLING  UPDATE.  * 

CC*  * 

CC*  PROGRAMMER  * 

CC*  G.  GAIDASZ  * 

CC*  CALSPAN  * 

CC*  AUG  1975  * 

CC*  * 

cc ***************************************** ********  ********************* 


CC******************************  sync  *******************************,,** 
0 0 ^ . 
PURPOSE  * 

TO  FORCE  SIMULTANEOUS  PROCESSING  (SYNCHRONIZATION)  OF 
A LIST  OF  PROCBLOCS. 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


CALLING  SEQUENCE 

CALL  SYNC(MINTME) 
DESCRIPTION  OF  PARAMETERS 


* OUTPUT  * 
MINTME 


TIME  TO  WHICH  CLASSES  WILL  BE  LAGGED  IF 
SYNCHRONIZATION  IS  IMPOSSIBLE  AT  THIS  TIME. 


* IMPLICIT  OUTPUT  * 


IFAIL 

NOCLS 

INDXCO 


IS  SET  TO  1 IF  SYNCHRONIZATION  CANNOT  BE 
ACCOMPLISHED. 

NUMBER  OF  CLASSES  TO 
EXECUTION  OR  LAGGED. 

LIST  OF  CLASSES  TO  BE 
EXECUTION  OR  LAGGED. 


BE  SYNCHRONIZED  IN 
SYNCHRONIZED  IN 


OF 


REMARKS 

SYNCHRONIZATION  REQUIRES  THAT  CLASSES  WITH  THE  SAME 
GRADUATION  ID  BE  IN  THE  CORRECT  PROCBLOC(S)  OF  EACH 
THE  COURSES  LINKED  BY  THE  SYNCHRONIZATION  LOOP. 

IF  CLASSES  HAVE  BEEN  SPLIT  THEN  THE  NUMBER  OF  STUDENTS 
(WITH  THE  SAME  GRADUATION  ID)  IN  EACH  COURSE  (SUMMED  OVER 
THE  TRACKS)  MUST  AGREE. 

SUBROUTINES  USED 
PBLOCK 
ASCLS 
SYNCT 
BLOCK 
CLSDMP 

PROGRAMMER 

GEORGE  GAIDASZ 

CALSPAN 

MAY  1975 


* 
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I 

! 


CC.*****  *******  ******** **********  SYNCT  ******************************** 

CC* 

PURPOSE 

TO  PLACE  ALL  TASKS  THAT  MUST  BE  PERFORMED  SIMULTANEOUSLY 
IN  A LIST. 


CALLING  SEQUENCE 


CALL  SYNCT (NQCLS*1NDXC  ) 
DESCRIPTION  OF  PARAMETERS 


NOCLS 
INDXC ( ) 


NUMBER  OF  CLASSES  IN  INDXC. 

LIST  OF  POINTERS  TO  CLASSES  IN  THE 
CURRENT  CLASSES  ARRAYSt  WHOSE  TASKS 
TO  BE  SYNCHRONIZED. 


ARE 


REMARKS 

THE 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC*******  *****************************  *************  *************  ******** 


TASKS  ARE  ARRANGED  IN  THE  FOLLOWING  ORDER: 

1.  RESOURCE  UTILIZATION  TASKS. 

2.  UPDATE  TASK.  (PROVIDED  BY  PROGRAM) 

3.  OTHER  TASKS. 

A.  TRANSFER  TASKS  (PROVIDED  BY  PROGRAM). 


SUBROUTINES  USED 
PLIST 
PBLOCK 
BLOCK 
GETCLS 
TBLOCK 

PROGRAMMER 

G.  GAIDASZ 
CALSPAN 
MAY  197& 
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^ ■ 


SYNCT 


o— - 


INITIALIZE 

WORKING 

VARIABLES 


LOOT  ON 
CLASSES 


ARE 

AU 

CLASSES 

OONE 

\ I / 


INSERT 
UPDATE 
TASK  AFTER 
RES.  UTILIZATION 
TASKS 


BRING  PROCBLOC 
ASSOCIATED 
WITH  CLASS 
INTO  LOCAL 
STORAGE 


LOO?  ON 
TASKS 


INSERT 
DEFAULT 
TRANSFER  IF 
NONE  WAS 
SPECIFIED 


BRING 

TASK  BLOCK 
INTO  LOCAL 
STORAGE 


^ IT  A ^ 
SYNC.  CORR 
OR  GRAO 

v task  > 


SAVE  TASK  IN 
TEMPORARY 
STORAGE 


IS  IT 

A 5CATSA 

TASK 

s.  r ^ 


/ HAS  \ 
1 HERE 
BEEN  A 
TRANSfER 
t*« 


IT  A 

RESOURCE 
UTILIZATION 
. TASK  . 

X ? X 


SAVE  RESOURCE 

UTILIZATION 

TASK 

CLASS  SIZE 
DURATION 
CLASS  10 


CC************ ******** **********  TBLOCK  ******************************* 

cc* 

PURPOSE 

TO  PRINT  A TASK  BLOCK 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


CALLING  SEQUENCE 


CALL  TBLGCM  IADRS.IBLOCK > 


DESCRIPTION  OF  PARAMETERS 


IADRS 

IBLOCK 


ADRESS  OF  TASK  BLOCK. 
FIRST  WORD  OF  TASK  BLOCK. 


PROGRAMMER 

G.  GAIDASZ 
CALSPAN 
MAY  1975 


CC ********************************************************************* 


CC******************** **********  TRACKD  ******************************** 

cc*  * 

CC*  PURPOSE  * 

CC*  TO  CREATE  THE  TRACK  DESCRIPTOR  BLOCKS  FOR  EACH  COURSE.  * 

CC*  * 

CC*  CALLING  SEQUENCE  * 


CALL  TRACKD 
REMARKS 

THE  CREATION  OF  THE  TRACK  DESCRIPTOR  BLOCKS,  WHICH  ARE 
USED  BY  SUBROUTINE  SCATSA  TO  CHOOSE  TRAINEE  SOURCES 
ACCORDING  TO  THE  PRIORITY  AND  PROPORTIONS  SPECIFIED  IN 
THE  COURSE  DESCRIPTION,  IS  ACCOMPLISHED  IN  THREE  STEPS. 

1.  A RIGHT  TO  LEFT  SCAN  IS  DONE  OF  THE  PROCBLOCS  IN 
EACH  COURSE.  THE  RESULT  OF  THIS  OPERATION  IS  A 
LIST  OF  SOURCES  FOR  EACH  COURSE. 

2.  EACH  SOURCE  PRODUCED  BY  STEP  1 SERVES  AS  A STARTING 
POINT  FOR  A LEFT  TO  RIGHT  SCAN  OF  THE  TRACK  DEFINED 
BY  THE  SOURCE. 

AS  THE  PROCBLOCS  OF  A TRACK  ARE  PROCESSED  A COUNT 
IS  KEPT  OF  THE  TOTAL  DURATION  OF  THE  TRACK. 
PROPORTIONS  SPECIFIED  ALONG  THE  TRACK  ARE  MULTIPLIED 
TOGETHER  TO  PRODUCE  THE  RESULTING  PROPORTION  AT  EACH 
NODE  (PROCBLOC  WITH  MORE  THAN  ONE  LEFT  BRANCH l • THE 
PRIORITY  OF  EACH  TRACK  IS  CALCULATED  BY  ADDING  THE 
CURRENT  PRIORITY  TO  THE  PREVIOUS  PRIORITY  DIVIDED  BY 
A HUNDRED. 

A TRACK  DESCRIPTOR  BLOCK  IS  CREATED  FOR  EACH  NODE 
ALONG  A TRACK.  EACH  NODE  POINTS  TO  THE  NODE  THAT 
PRECEDES  IT. 

3.  THE  FINAL  STEP  ( SRTTDB ) IS  A LINK  SORT  IN  DECREASING 
ORDER  BY  PRIORITY  OF  THE  TRACK  DESCRIPTOR  BLOCKS 
FOR  EACH  COURSE. 

SUBROUTINES  CALLED 

LSTSRC 

GENTDB 

SRTTDB 

WRLTDB 


PROGRAMMER 

G.  GAIDASZ. 
CALSPAN 
AUG  1975 


^ ^ * 

CC***** ********************************************  ********************* 


403 


TRACKD 


START 


INITIALIZE 

COUNTERS 


LOOf  ON 
COURSES 


^ ALL  ^ 
COURSES 
DONE 


SAVE  POINTER 
TO  LAST  TDB 


SAVE  POINTER 
TO  FIRST 

TRACK  DESCRIPTOR 
BLOCK  FOR 
COURSE 


LSTSRC 


GENTDB 


SRTTDB 


j 


cc******************************  TRAM3 


CC* 

cc* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


PURPOSE 

PROVIDE  OVER-ALL  CONTROL  LOGIC  FOR  THE  CALCULATION  op 


* 

* 

* 

♦ 

* 


REMARKS 

TR  AM3  PROVIDES  THE  BASIC  CYCLING  LOOP  OF  THE  PROGRAM 
J^FTER  INITIALIZATION  IS  DONE*  THE  PROGRAM  READS  TRAINING 

“duI«“LCUUT£  THt  NUM6ER  0F  ^MNEts  ?HAT  SH‘oULD 
JRA*NING  DEMANDS  CLASSES  ARE  STORED  IN  MASS 

storage#  subroutine  prepc  is  used  to  select  the  r.ii^ccc 

THAT  SHOULD  66  ACTIVE  FOR  THE  CURRENT  sImSla^ON  tJmI 
THE  PROGRAH  THEN  LOOPS  OVER  THESE  ACTI VE  CLASSES* SELECTING 

Jrocb!!ocsTINO  ™E  T*SKS  specif,ed  ™e  SsmSIni  ,N6 


* 

* 


* 

* 


* 

* 


* 

* 


* 

* 


* 

* 


SUBROUTINES  USED 
INIT 
FORMQ 
PREPC 
TRMNTE 
CLOCK 
CBLOCK 
EXECT 
GETCLS 
LSTASK 
FORMC 


* 

* 


* 

* 


* 

* 


* 

* 


* 

* 


* 

* 
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* 

♦ 


♦ 
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CC******************************  TRMNTE  ******************************** 


CC*  * 
CC*  PURPOSE  * 
CC*  INDICATE  TERMINATION  OF  TRAM-3  EXECUTION.  * 
CC*  * 
CC*  CALLING  SEQUENCE  * 
CC*  * 
CC*  CALL  TRMNTE  * 
CC*  * 
CC*  PROGRAMMER  * 
CC*  G.GA1DASZ  * 
CC*  CALSPAN  * 
CC*  MAY  1975  * 
CC*  * 


CC****************************** **************************************** 
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CC*****<*************************  UPDATE  ******************************** 
CC*  * 
CC*  PURPOSE  * 
CC*  UPDATE  RESOURCE  INVENTORIES  TO  REELECT  THE  CONSUMPTION  * 
cc*  BY  THE  CURRENT  TASK  OR  GROUP  OF  SYNCHRONIZED  TASKS.  * 


CALLING  SEQUENCE 


CALL  UPDATE 


SUBROUTINES  USED 
PUTRES 


PROGRAMMER 

G.  GAIDASZ 
CALSPAN 


AUG  197S 


CC*  * 

CC*******************************************************  *************** 


i n 


£ ********************* ***********  UPORES  ****************************** 
C*  * 

C*  SUBROUTINE  UPORES  * 


PURPOSE 

UPDATES  RESOURC: 


LISTS  WHEN  CLOCK  TIME  HAS  CHANGED 


AUTHOR/P ROGKAMMEK 
JOHN  R.  MEN1G  . 

CAL  SPAN  CORPORATION 
2b  APRIL  197b 


C ******** *************************************************************** 


C ************ ************ ********  KPPSOR  ***************************** 


C*  * 

C.*  SUBROUTINE  UPDSOR  * 
C*  * 
C*  PURPOSE  * 
C*  UPDATES  SURGE  LISTS  WHEN  CLOCK  TIME  HAS  CHANGED  * 
C*  * 
C*  AUTHGR/PRUGRAMMER  * 
C*  JOHN  R.  MENIG  ♦ 
C*  CALSPAN  CORPORATION  * 
C*  28  APRIL  1975  * 
C*  * 


C ******** ******** ******************************************************* 


CYCLE  THRU 


QC ******************************  WPTB  ********************************* 

cc* 

PURPOSE 

70  PRINT  A PREDETERMINED  TRANSFER  BLOCK. 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


CALLING  SEQUENCE 

CALL  WPTBlICflPfNtNXT) 
DESCRIPTION  OF  PARAMETERS 


IC 
IP 
N(  ) 

NXT  ( ) 


PROGRAMMER 

G.  GAIDASZ 
CALSPAN 
MAY  1975 


ADRESS  OF  CLASS  ASSOCIATED  WITH  PTB. 
ADRESS  OF  PROCBLOC  ASSOCIATED  WITH  PTB. 
NUMBER  OF  STUDENTS  TO  BE  SENT  ALONG  EACH 
OF  THE  5 BRANCHES  OF  THE  PTB. 

ADRESSES  OF  THE  NEXT  PTBS  ALONG  EACH  OF 
THE  5 BRANCHES. 


QQ********************************************************************* 


415 


£q***** *************** **********  WRLTOB  *********^********,********^* 

CC*  PURPOSE 

CC*  TO  PRINT  A RL-TRACK  DESCRIPTOR  BLOCK. 

CC* 

CC*  CALLING  SEQUENCE  ' 

CC*  1 


I 

i 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


CALL  WRLTDB(I) 

DESCRIPTION  OF  PARAMETERS 

1 INDEX  OF  TRACK  DESCRIPTOR  BLOCK  TO  BE  PRINTED 

PROGRAMMER 

G.  GAIDASZ 
CALSPAN 
MAY  1975 


WRLTDB 


PRINT  A 
RL-TRACK 
DESCRIPTOR 
BLOCK 


CC******* ************* **********  WRUB  ********************************* 

cc* 

CC*  PURPOSE 

CC*  TO  PRINT  A RESOURCE  UTILIZATION  BLOCK 

CC* 

CC* 

CC*  CALLING  SEQUENCE 
CC* 

CC*  CALL  WRUB ( IADRSt IBLOCK ) 

CC* 

CC*  DESCRIPTION  OF  PARAMETERS 
CC* 

CC*  IADRS  ADRESS  OF  RUB. 

CC*  IBLOCM)  FIRST  WORD  OF  RUB. 

CC* 

CC*  PROGRAMMER 
CC*  G.  GAIDASZ 

CC*  CALSPAN 

CC*  MAY  1975 

CC* 

CC***** ************************************ ********  ******************** 
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PRINT  A 
RESOURCE 
UTILIZATION 
BLOCK 


I 


I 

I 

~ 

li 

i 


CC ******* ************* **********  WRUOB  ********************************* 


cc* 

* 

cc* 

PURPOSE 

* 

cc* 

TO  PRINT  A 

RESOURCE  UTILIZATION  DESCRIPTION  BLOCK. 

* 

cc* 

* 

cc* 

* 

cc* 

CALLING  SEQUENCE 

* 

cc* 

* 

cc* 

CALL  WRUOB ( I ADRS* IBLOCK ) 

* 

cc* 

* 

cc* 

DESCRIPTION  OF 

PARAMETERS 

* 

cc* 

* 

cc* 

IADRS 

ADRESS  OF  RUDB. 

* 

cc* 

IBLOCK 

FlkST  WORD  OF  RUDB. 

* 

cc* 

* 

cc* 

* 

cc* 

PROGRAMMER 

* 

cc* 

G.  GAIOASZ 

* 

cc* 

CALSPAN 

* 

cc* 

MAY  1975 

* 

cc* 

* 

cc  *************************************** ******************************* 


0 

0 

0 

li 

0 

ji 

li  421 

1 


WRUDB 


START 


PRINT  A 

RESOURCE 

UTILIZATION 

DESCRIPTION 

BLOCK 


In  the  table  on  the  following  pages,  the  column  headings  show  the  sub- 
routine names  that  do  the  calling,  and  the  row  heading  give  the  names  of  the 
subroutines  called. 


SUBROUTINE  CROSS  RtFERENCt  SUMMARY  C ******************************  T R AM3  ********************************* 


m.  . r ■'*'*>  — ...  / 
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TRACKO 


SUBROUTIN 


3.6 


Common  Variable  Definitions 


rtf 

iJ 


U 


The  tables  on  the  following  pages  define  the  meaning  of  each  variable 
contained  in  each  of  the  common  blocks  used  by  this  program. 


♦ ROUTINES  controlled  by  * 

* 

* IFLOW  AND  IDUMP  * 

* 

******  *********************************************w<t<Wl>^^* 

* NOTE*-  IFLOW  CONTROLS  THE  PRINTING  OF  SUBROUTINE  FLOW  * 

* MESSAGES  IN  KEY  ROUTINES.  * 

* IF  IFLOW  = 1»  MESSAGE  IS  PRINTED  AT  ENTRY  * 

* TO  SUBROUTINE.  * 

* IF  IFLOW =0*  MESSAGES  ARE  NOT  PRINTED.  * 

* IDUMP  CONTROLS  THE  PRINTING  OF  DIAGNOSTIC  MESSAGES  * 

* DURING  THE  EXECUTION  OF  KEY  ROUTINES.  * 

* IF  IDUMP=I,  DIAGNOSTIC  MESSAGES  ARE  PRINTED.  * 

* IF  IDUMP  =G»  MESSAGES  ARE  NOT  PRINTED.  * 


’ ”””*^^’"T,t,t,',t*,[,[**********  ******************  ********* 

* WORD  * ROUTINES  AFFECTED  * 

* ♦ * 

******  ***********************************l|[,MM|MM[i4tl|liM[l4li([1(liM[ltl]|[ltl]tli|[i4i 

* * * 

* 1 * FORMQ  * 

* 2 * ADDTDQ  * 

* 3 * FORMC  * 

* .5  * NEWCLS  * 

* 6 * MLTCLS  * 

* 7 * PRfcPC  * 

* e * LSTASK  * 

* 9 * LSTSRC*GENTDB  *TR ACKD  * 

* 10  * DTRNSF  * 

* 11  * SPLIT  * 

* 13  * EXECT  * 

* 14  * SYNCT  * 

* 15  * SYNC  * 

* 16  * CORK  * 

* 17  * MERGE  * 

* 18  * SCATSA  * 

* 19  * RESUSE  * 

* 20  * GRADE  „ 

* 21  * CLASCG  * 

* 23  * RUSER  * 

* 24  * CALQ  * 

* 25  * RES INV  * 

* 26  * FRMPTB  * 

* 28  * FNDPTB  * 

* 46  * MAIN  * 

* 46  * TRACKD  * 

* 50  * MAIN  * 

* * * 

*********************+*+**+++++**+mmmmmmm+tm^^ 
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* * 


***************************************************************** 


* 

* 

* 


COMMON  BLOCK  - BLKS 


* 

* 

* 


***********************************  ****************************** 
* * * 

* VARIABLE  * DESCRIPTION  * 

* * * 

***************************************************************** 


* IBLOCK ( 4 ) 

* 

* 

* 

* 

* 

* 

* NBLOCK (41 

* 

* 

* 

* LBLOCK ( 4 ) 


* I WORD  ( 

* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

★ 

* 

* 

* 

* 

* 

* 

* 


IBLOCK ( 1 1 - 
IBLOCK( 2 ) - 
IBLOCK ( 3 ) - 

IBLOCK ( 4 ) - 


NBLOCK ( 1 ) 

NBLOCK ( 2 ) 

NBLOCK ( 3 ) 
NBL0CK(4) 

LBLOCK ( 1 ) 

LBLOCK ( 2 1 
LB  LOCK (3) 

LBLOCK ( 4 ) 

POOL  OF  STORAGE. 


ADRESS  OF  FIRST  PROCBLOCK 
ADR6SS  OF  FIRST  TASK  BLOCK. 
ADRESS  OF  FIRST  RESOURCE 
UTILIZATION  BLOCK.  (RUB) 
ADRESS  OF  FIRST  RESOURCE 
UTILIZATION  DESCRIPTION 
BLOCK  (RUDB ) 

NUMBER  OF  PROCBLOCKS. 

OF  TASK  BLOCKS. 

OF  RUBS. 

OF  RUDBS. 

OF  PROCBLOCK  - 34. 

OF  TASK  BLOCK  -II. 
OF  RUB  - 9. 

OF  RUDB  - R 


NUMBER 

NUMBER 

NUMBER 

LENGTH 

LENGTH 

LENGTH 

LENGTH 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


***************************************************************** 
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g- 


***************************************************************** 
* * 

* COMMON  BLOCK  — CBLK  * 

* * 

***************************************************************** 
* * * 

* VARIABLE  * DESCRIPTION  * 

* * * 

***************************************************************** 


NCGURS 
IADPB1  ( I ) 
icTvpem 

IPTYPE ( I ) 


1CPRTY(I) 
MAXCLS(I) 
IGINTR(I) 
ITGRD1  ( I ) 
ICGRAD(I) 
IPGRADd  ) 
NDXTDl ( I ) 

NDXTDL ( I ) 

NDXNDKl  ) 
FRCTN(I) 


COURSE 


NUMfaER  OF  COURSES  IN  CURRENT  RUN. 

ADRESS  OF  GRADUATION  PROCBLOC  FOR  COURSE  I. 
COURSE  TYPE.  1-CCTS 

2-PMT 

PERSONNEL  TYPE.  l-PILOTS 

2-  COPILOTS 

3- OSO 

4- DSG 

COURSE  PRIORITY. 

MAXIMUM  CLASS  SIZE. 

TIME  INTERVAL  BETWEEN  GRADUATIONS. 

TIME  OF  EARLIEST  GRADUATION  PERMITTED 
TIME  OF  CURRENT  I LATEST)  GRADUATION. 

TIME  OF  PREVIOUS  (SMALLER  TIME)  GRADUATION. 
POINTER  TO  FIRST  ELEMENT  IN  TRAINING  DEMAND 
QUEUE  (COMMON  CTDQ ) FOR  COURSE  I. 

POINTER  TO  LAST  ELEMENT  IN  TRAINING  DEMAND 
QUEUE  (COMMON  CTDQ)  FOR  COURSE  I. 

ADRESS  OF  FIRST  NODE  FOR  COURSE.  (NOT  USED). 
NUMBER  OF  STUDENTS  ACCUMULATED  FROM  TRAINING 
DEMANDS  QUEUE  THAT  MUST  BE  PLACED  IN  CLASSES. 


* * NOTE.-  INDEX  I REFERS  TO  COURSE  NUMBER.  * 

* * * 
***************************************************************** 


****™******M******’"****m**+***+MM*ttmmm""mM^ 

* 


- CCLS 


********** ********* 


* VARIABLE  * 


DESCRI  PTION 


* * 


* 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 


NACLS 
IADRC(I) 
ICTME(I ) 
ICPRT(I) 
IACTVE(I) 

NOPB(I) 
IGID( I) 

I SORT ( ) 


IDONER(I) 

LAGC(I) 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 


NUMBER  OF  CLASSES  CURRENTLY  ACTIVE. 

ADRESS  OF  CLASS  I. 

TIME  FOR  PROCESSING  CLASS  I. 

PRIORITY  OF  CLASS  I. 

CLASS  STATUS.  O-ACTIVE. 

1-INACTIVE. 

ADRESS  OF  PRCCBLOC  ASSOCIATED  WITH  CLASS  I, 
CREW  IDENTIFICATION  NUMBER. 

SORTED  LIST  OF  INDICES  FOR  ACTIVE  CLASSES. 
SORT  IS  ON  TIME  AND  PRIORITY  IN  DESCENDING 
ORDER.  ( I SORT ( 1 ) CONTAINS  INDEX  OF  CLASS 
WITH  HIGHEST  SCHEDULED  EXECUTION  TIME  AND 
HIGHEST  PRIORITY.) 

UNIQUE  CLASS  NUMBER  ASSIGNED  BY  STEP  3 
OF  TRAM. 

DURATION  OF  CURRENT  LAG  FOR  CLASS  I. 


* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


0 


* 

* 

*1 

* 

* 

* 

*1 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 


VARIABLE 


IFRSTC 

ILASTC 

NXTFRE 

LIMITC 

ICBS2E 

ICBSZ1 

!CLASS( 


t* 


POINTER  TO  FIRST  ELEMENT  IN  LINKED  LIST* 
POINTER  TO  LAST  ELEMENT  IN  LINKED  LIST. 
POINTER  TO  NEXT  UNUSED  LOCATION. 
DIMENSION  LIMIT. 

NUMBER  OF  WORDS  IN  A CLASS  BLOCK. 

* ICBSZE  - 1 

LINKED  LIST  STORAGE  AREA  FOR  CLASS  BLOCKS 
SEE  DESCRIPTION  OF  CLASS  BLOCKS  (FIG  8.1) 
FOR  DEFINITION  OF  PARAMETERS. 


***************************************************************** 
* * 


* COMMON  BLOCK  — CLSB  * 

* * 
***************************************************************** 
* * * 


* VARIABLE  * DESCRIPTION  ♦ 

♦ * * 


***************************************************************** 


* 

* NDXCLS 

* NUMCRS 

* NOSTDS 

* IPRTYC 

* ICLSTM 

* nhrccb 

* ISTATS 

* 

* IPREDT 

* 

* IDGRAD 

* NUMGRD 

* IDTEGR 

* IC 

* IDIDR 

* LAGT 

* LRSON 

* 

* 

* ICLSAD 

* ICRSPY 

* ISORCN 

* LAGTOT 

* 


* * 

* ADRESS  OF  CURRENTLY  ACTIVE  CLASS.  * 

* COURSE  NUMBER.  * 

* NUMBER  OF  STUDENTS.  * 

* CLASS  PRIORITY.  * 

* TIME  OF  NEXT  SCHEDULED  EVENT  FOR  CLASS.  * 

* ADRESS  OF  PROCBLOC  FOR  CLASS.  * 

* CLASS  STATUS.  O-ACTIVE.  * 

* 1-INACTIVE.  * 

* ADRESS  OF  NEXT  PREDETERMINED  TRANSFER  * 

* BLOCK  FOR  CLASS.  * 

* CREW  IDENTIFICATION  NUMBER.  * 

* ADRESS  GF  GRADUATION  PROCBLOC.  * 

* GRADUATION  DATE.  * 

* POINTER  TO  CLASS  IN  LIST  OF  CURRENT  CLASSES.  * 

* UNIQUE  CLASS  NUMBER.  * 

* DURATION  OF  CURRENT  LAG  (IN  C.U.S)  * 

* REASON  FOR  CURRENT  LAG.  1-RESOURCE  MISSING.  * 


* 6-SYNCHRONIZATION  FAILURE* 

* ' 7-CORRELATION  FAILURE.  * 


* ADRESS  OF  CLASS  IN  MASS  STORAGE.  * 

* COURSE  PRIORITY.  * 

* SOURCE  NUMBER  FOR  CLASS.  * 

* TOTAL  TIME  CLASS  HAS  BEEN  LAGGED.  * 

* * 


*************************** ************************************** 
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\ 


***************************************************************** 


* * 

• * COMMON  BLOCK-  CLST  * 

* * 

***************************************************************** 
* * * 

* VARIABLE  * DESCRIPTION  * 

* * * 

***************************************************************** 
* * * 

* INDXCm  * POINTERS  TO  CLASSES  (IN  COMMON  CCLS)  THAT  ARE  * 

* * CURRENTLY  IN  PROCBLOCS  LINKED  TOGETHER  BY  A * 

* * SYNCHRONIZATION  OR  CORRELATION  LOOP.  * 

* IACLS(I)  * WORK  AREA.  POINTERS  TO  CLASSES  ASSOCIATED  WITH  * 

* * A SPECIFIC  PROCBLOCK.  * 

* IPBLKdl  * WORK  AREA.  COURSE  NUMBER  OF  ITH  COURSE  IN  * 

* * SYNC.  LOOP.  * 

* NSTUDS(I)  * WORK  AREA.  NUMBER  OF  STUDENTS  IN  ITH  COURSE  * 

* * OF  SYNCH.  LOOP.  * 

* NOCLS  * NUMBER  OF  CLASSES  IN  INDXC.  * 

* * * 


***************************************************************** 


•SgSWgts* 


* COMMON  BLOCK-  CONTRL  * 

* 

* * * 

* VARIABLE  * DESCRIPTION  * 

* * ****** 

* ICLK  * CLOCK  TIME  AT  WHICH  LAST  UPDATE  OF  SOURCES  * 

* * AND  RESOURCES  WAS  DONE.  * 

* * 

******  ********  ********+****+*******  + ****+**+4;*  + + **+++++,.^^^*** 


! 

I 


* 

<iar 


j 


i 

* 


i 


1 


! ! 


1 

f 


j 


***************************************************************** 


* * 

* COMMON  BLOCK  - CRSGRP  * 

* * 

***************************************************************** 
* * * 

* VARIABLE  * DESCRIPTION  * 

* * * 

***************************************************************** 
* * * 

* NCGRPS  * NUMBER  OF  COURSE  GROUPS.  * 

* IUPTCG  * NOT  USED.  * 

* NUMCRU  * NEXT  AVAILABLE  CREW  NUMBER  - 1.  * 

* NCING(I)  * NUMBER  OF  COURSES  IN  GROUP  I.  * 

* ICINGCJ,!)  * NUMBER  OF  JTH  CUURSE  IN  GROUP  1.  * 

* * * 


******************************************************** ********* 


***************************************************************** 


* * 

* COMMON  BLOCK-  CTDQ  * 

* * 

****** ************************************************ *********** 
* * * 

* VARIABLE  * DESCRIPTION  * 

* * * 

***************************************************************41* 

* * * 

* 1 1 FREE  * POINTER  TO  NEXT  AVAILABLE  LOCATION  * 

* LIMIT1  * DIMENSION  LIMIT  FOR  ARRAY  ICORE.  * 

* ICORE C ) * LINKED  LIST  STORAGE  FOR  TRAINING  DEMANDS  * 

* * (SEE  FIGURE  B.2  FOR  DESCRIPTION  UF  * 

* * TRAINING  DEMAND  BLOCKS)  * 

* * * 


***************************************************************** 


************************************************* 

* * 

* COMMON  BLOCK  - ECB  * 

* * 
****** *********************************************************** 


VARIABLE 


* 

* 

* 

************* 
* 

ITIMES 
ITIMEE 
ItIMEC 
NXTBRK 
MINGRD 
ITEVNT 
NCRSES 
NCLSES 
IDRS 


NOTDRS 

ITRNRU 

ITRANW 

IFAIL 

KEOF 

IFA1L1 

IFAIL2 

IOPTF 


IOPTFI 

IOPTF2 

MAXLAG 


IEXTRA 
IFLOW ( 50 ) 


IDUMP ( 50 ) 


ICORSE(  ) 


DESCRIPTION 


* 
* 
* 

*************************** **** * ** * ** *********** ** * 

* 

START  TIME  OF  SIMULATION.  * 

END  TIME  OF  SIMULATION.  * 

CURRENT  TIME  OF  SIMULATION.  * 

TIME  OF  NEXT  SCHEDULED  EVENT.  * 

TIME  OF  EARLIEST  CURRENT  GRADUATION.  * 

TIME  OF  LATEST  PREVIOUS  GRADUATION.  * 

NUMBER  OF  COURSES.  * 

TOTAL  NUMBER  OF  CLASSES  CURRENTLY  IN  SYSTEM.  * 
DEMAND  RECORD  STATUS.  1“  FIRST  TIME  * 

2-  NORMAL  * 

3~  E.O.F.  * 

NUMBER  OF  TRAINING  DEMAND  RECORDS  READ.  * 


* 

* 

* 


READING  TRAINING 


FORTRAN  UNIT  NUMBER  FOR 
DEMAND  RECORDS. 

NOT  USED 

IF  =0,TASK  EXECUTION  SUCCEEDED. 

IF  * I * T A SK  EXECUTION  FAILED. 

NOT  USED 
NOT  USED 
NOT  USED 

PROCESSING  OPTION  IN  CASE  OF  RESOURCE  ALLOCATION 
FAILURE.  0-  STOP 

1-  IGNORE  AND  CONTINUE 

2-  LAG 

NOT  USED. 

NOT  USED 

MAXIMUM  LENGTH  OF  TIME  A CLASS  CAN  BE  LAGGED 
BEFORE  IT  STARTS  EXECUTING  THE  EXTRAS  TASKS 
IF  IT  CANNOT  BE  CORRELATED  IMMEDIATELY. 

IF  SET  TO  1 ( BY  CORR ) INDICATES  THAT  THE 
EXTRAS  TASKS  SHOULD  BE  EXECUTED. 

SWITCHES  TO  CONTROL  PRINTING  OF  PROGRAM  FLOW 
INFORMATION.  O-NO  PRINT,  1-PRINT. 

(SEE  TABLE  7.1  FOR  DETAILS) 

SWITCHES  TO  CONTROL  PRINTING  OF  DIAGNOSTICS 
DURING  PROGRAM  EXECUTION.  O-NO  PRINT,  1-PRINT. 
(SEE  TABLE  7.1  FOR  DETAILS) 

NOT  USED. 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


***************************************************************** 
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* ********************************************* **************** 

* 


COMMON  BLOCK  - PB 


* VARIABLE  * 


DESCRIPTION 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


IPROCB 

IBTYPE 

IDURAT 

IPRTY 

ISYNCT 

IDSYNB 


NLBRNC 


♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


PROCELOCK  NUMBER. 

1 

0DtfJl?N  0F  PR0CBL°CK.  IIN  CALENDAR  UNITS) 
PRIORITY  OF  PROCBLOCK. 

COURSE  NUMBER. 

ioRr^LCF  NEXT  PRtJCBLOCK  IN'  SYNCHRONIZATION 
OR  CORRELATION  LOOP.  0 IF  PROCBLOC  IS  NOT 

PROCBLOCKs!0  0K  C°RRELATED  WITH  ANY  OTHER 

, RDiKfu 1 1 numbER  OF  LEFT  BRANCHES  IN  PROCBLOCK. 

LBRNCH 1 2 * 1 1*  i?  FdNE' *T  PR0CBL[jCK  ALONG  BRANCH  I. 

|LWRwru  **!!!  ™ANSFER  PRIORITY  OF  ITH  BRANCH. 

LBRNCHOU)*  TRANSFER  PROPORTION  ALONG  BRANCH  I. 

* NUMBER  OF  TASKS. 

ADRESS  OF  JTH  TASK. 

NUMBER  OF  RIGHT  BRANCHES  IN  PROCBLOCK. 

T,^tnte!!tu^R0CtBL0CK  along  the  kth  braneh« 
(IN  A LEFT  TO  RIGHT  DIRECTION) 


NTASKS 
ITASK ( J ) 
NRBRNC 
IRBRNC(K) 


* 

* 

* 

* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


******************* 
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rr 


1 


I 


I 


I 

« . 


I n 

I 


+*11***++++*++**+*+++**+****************** ***************  ********* 
* * 

* COMMON  BLOCK-  PTB  * 

* * 
***************************************************************** 


* 

+ 

+ 


VARIABLE 


* 

* 

* 


DESCRIPTION 


* 

* 

* 


**** ***++***+********+**+**+**********+*******+*+*+**++**++***++* 


* 

* 

+ 

* 

* 

* 

* 

+ 

* 

* 

* 


PROP  IS) 
NEXTPTI 5 ) 
IPROPllO) 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


PROPORTIONS  FOR  5 LEFT  BRANCHES  OF 
PROCBLOC. 

ADRESSES  OF  NEXT  PTBS  ALONG  EACH  OF  THE 
5 BRANCHES. 

FIRST  10  WORDS  OF  ACTIVE  PTB. 

IPROPI 1—5)  CONTAIN  THE  NUMBER  OF 
STUDENTS  TO  BE  SENT  ALONG  EACH  BRANCH. 
IPRGP 1 6—10 ) CONTAIN  THE  ADRFSSES  OF  1 HE 
NEXT  PIBS  ALONG  E*r.H  OF  THE  FIVE  BRANCHES, 


♦ 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 


***************************************************************** 


COMMON  BLOCK  - PTBC 


* VARIABLE  * 


DESCRI  P T I 0 N 


* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 


I1PTB 
ILPTB 
NXTFPT 

LIMPTB 

ISZEPT 

ISZIPT 

ICORPT( 


pnJUIcD  In  FIRST  PREDETERMINED  TRANSFER  BLOCK. 
!°™TER  I?  LAST  PP^ETERMINED  TRANSFER  BLOCK. 
POINTER  TO  NEXT  AVAILABLE  LOCATION  FOR  STORING 

r IBjli 

DIMENSION  LIMIT  FOR  PTB  STORAGE  ARRAY. 

SIZE  OF  PTB  RECORD  (II) 

* ISZEPT  - I = 10 

LINKED  LIST  STORAGE  AREA  FOR  PTBS 

(FOR  DETAILED  DESCRIPTION  OF  PREDETERMINED 

TRANSFER  BLUCK  SEE  COMMON  BLOCK  PTB). 


! ********' 


II  II  1 jiuW  i..  n u.  IR| *jw  uuwiuj  !«!# 


» 


1 

I 


I RMMM 


* 

* 

* 


* 

* 

* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 


NRESCR 


IBUCKT(I) 
INCORE ( I ) 


LOTlMim 
L0TIM2( I ) 
NbUCKT ( I ) 


ITM  I ) 
IT2(I) 


NXT 

LIMNXT 

IA1 


IA2 

INDX1 


INDX2 


NBI 


LIMRES 
INVRES  ( 


LIMNS 

LIMIS 

NSAVE 


ISAVE 
IADIK  J) 
I ADI  2 ( J ) 
IADS 1( J ) 


IAUSED(K) 


COMMON  BLOCK  - RES 


* 

* 

* 


VARIABLE 


* 

* 

* 


description 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


************ 


NUMBER  OP  RESOURCES  CURRENTLY  IN  LOCAL  * 

STORAGE.  * 

BUCKET  SIZE  FOR  RESOURCE  I.  * 

IF  =0  RESOURCE  I IS  NOT  IN  LOCAL  STQRAGL.  * 

=1  RESOURCE  I IS  IN  LOCAL  STORAGE  * 

START  TIME  FOR  LOCAL  INVENTORY  OF  RESOURCE  I.  * 
END  TIME  FOR  LOCAL  INVENTORY  OF  RESOURCE  1.  * 

NUMBER  OF  BUCKETS  OF  RESOURCE  I IN  LOCAL  * 

STORAGE.  * 

BUCKET  NUMBER  CORRESPONDING  TO  LITIM1 . ( AS SUMES  * 
RES.  INVENTORY  STARTS  AT  TIME=1>  * 

BUCKET  NUMBER  CORRESPONDING  TO  LITIM2.  * 

(FOR  ITH  RESOURCE)  * 

NEXT  AVAILABLE  LOCATION  IN  ARRAY  INVRES.  * 

DIMENSION  LIMIT  FOR  ARRAY  INVRES.  * 

THEORETICAL  NUMBER  OF  BUCKET  CORRESPONDING  * 

TO  ITIMEI.  (WORK  VARIABLE  FOR  CURR.  RESOURCE)  * 
THEORETICAL  NUMBER  OF  BUCKET  CORRESPONDING  * 

TO  ITIME2.  (WORK  VARIABLE  FOR  CURRENT  RESOURCE).  * 
POINTER  TO  ELEMENT  IN  ARRAY  INVRES  THAT  * 

CORRESPONDS  TO  THE  »HIGH-TIME»  BUCKET  OF  THE  * 
DESIRED  RES.  INVENTORY.  * 

POINTER  TO  ELEMENT  IN  ARRAY  INVRES  THAT  * 

CORRESPONDS  TO  THE  •LOW-TIME • BUCKET  OF  THE  * 

DESIRED  RESOURCE  INVENTORY.  * 

NUMBER  OF  RESOURCE  BUCKETS  REQUIRED  TO  COVER  * 
THE  ACTIVE  PROCBLOC.  * 

DIMENSION  LIMIT  FOR  ARRAY  INVRFS.  * 

TEMPORARY  STORAGE  AREA  FOR  INVENTORIES  OF  * 

CURRENTLY  ACTIVE  RESOURCES.  * 

DIMENSION  LIMIT  FOR  ARRAYS  IADI1»IADI2  AND  IADSl.* 
DIMENSION  LIMIT  FOR  ARRAY  IAUSED.  * 

NUMBER  OF  RESOURCES  WHOSE  CONSUMPTION  HAS  BEEN  * 
STORED  IN  ARRAY  IAUSED.  * 

NUMBER  OF  BUCKETS  USED  TO  STORE  TEMPORARY  * 

UPDATE  OF  RESOURCE  UTILIZATION.  * 

SAVED  VALUE  OF  INDX1.  (POINTER  TO  'HIGH-TIME • * 

BUCKET  IN  INVRES).  * 

SAVED  VALUE  OF  INDX2.  (POINTER  TO  »LOW-TlME»  * 

BUCKET  IN  INVRES).  * 

POINTER  TO  FIRST  ELEMENT  SAVED  IN  IAUSED.  * 

(CORRESPONDS  TO  IADI1)  * 

NOTE.-  J VARIES  FROM  I TO  NSAVE.  * 

SAVED  RESOURCE  INVENTORIES.  * 

NOTE.-  K VARIES  FROM  I TO  ISAVE.  * 
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1 


m 


It  ■ ■ - 


*-  -j,  . 


* * 


*****************+*******+*+****+*+++itmmmmmm]m+*lt,J¥^*mj 


COMMON  BLOCK  - RLTDBC 


******************+******M**m*++**m*m**m+mm+iimmmmm£ 
* * 


* VARIABLE  * 


description 


ITRKK  J) 


* * J 

******************************++*++++*++++*+++++++1"++^**^^^* 

* NTDBRL  * NUMBER  OF  RIGHT-TO-LEFT  TRACK  DESCRIPTOR  * 

* * BLOCKS.  * 

* ITRKl(J)  * POINTER  TO  FIRST  TRACK  DESCRIPTOR  BLOCK  * 

* * FOR  COURSE  J.  (NOTE. -A  DUMMY  ENTRY  IS  * 

* * MADE  FOR  THE  LAST*!  COURSE  I * 

* NXTNDA(I)  * POINTER  TO  NEXT  NODE  ( TDB ) ALONG  THIS  * 

* „ * TRACK.  (IN  A RIGHT  TO  LEFT  DIRECTION).  * 

* ITDURT(I)  * TIME  DURATION  BETWEEN  SOURCE  AND  NODE  I.  * 

* r i id r t » t « * /INCLUDING  THE  DURATION  OF  THE  NODE  PROCBLOC).  * 

* CUMPCT(I)  * CUMULATIVE  TRANSFER  PROPORTION  FROM  SOURCE  * 

'*  * T0  CURRENT  NODE.  OBTAINED  BY  MULTIPLYING  * 

* * THE  SPECIpIED  PROPORTIONS  ALONG  THE  TRACK)  * 

* CUMPTY(I)  * CUMULATIVE  PRIORITY  OF  TRACK  AT  THIS  NODE.  * 


NXTNDAU  ) 


ITDURT(I) 


CUMPCTd  ) 


CUMPTY(I) 


NLFTB(I) 
NSRCE(I) 
NUMBLK ( I ) 
IT  DBST ( ) 


NUMSTAU  ) 


('CURRENT  PRIORITY  ♦ PREVIOUS  PRIORITY  / 100., 
APPLIED  RECURSIVELY.) 

NUMBER  OF  LEFT  BRANCH  IN  PROCBLOC. 

POINTER  TO  SOURCE  DESCRIPTION.  (COMMON  SORDSC) 
NUMBER  OF  PROCBLOC  ASSOCIATED  WITH  THIS  NODE. 
LIST  OF  SORTED  POINTERS  TO  TDBS . 

(SORT  IS  IN  DESCENDING  ORDER  ON  PRIORITY  BY 
COURSE). 

NUMBER  OF  STUDENTS  ASSIGNED  TO  THIS  NODE. 
(CALCULATED  FOR  EACH  CLASS  BY  SCATSA). 


**************  *********************#**#******lM[)tt*#**1|t1tjWtJ>J>J>J>J>J>1>#<I 


r l 

Li  1 


1 ]| 

J 


* t 


***************************************************************** 
* * 

* COMMON  BLOCK  - RUB  * 

* * 

***************************************************************** 

* 


* VARIABLE  * 


DESCRIPTION 


* ♦ 

***************************************************************** 

* 


* IBLOCN  * RUB  NUMBER  ( PRIMARY ) 

* IBLKT  * 3 

* NRUDBS  * NUMEER  OF  RU DBS  USED  BY  PRIMARY  RUB, 

* IARUDB(I)  * ADRESS  OF  ITH  RUDB.  (PRIMARY) 

* JBLOCN  * NUMBER  OF  SECONDARY  RUB. 

* JBLKT  * 3 

* MRUDBS  * NUMBER  OF  HU DBS  USED  BY  SECONDARY  RUB, 

* JARUDB ( I ) * ADRESS  OF  ITH  SECONDARY  RUDB. 

* * * 
***************************************************************** 


* 

* 

* 

* 

* 

* 

* 

* 
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COMMON  BLOCK  - RUDR 


************* 


description 


* 

* 


* 

♦ 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


^***********************^*„^^^^^^^^^^^^^^^^* 


INTBN 

IbTYPE 

IRESNO 

IRUGF 


IRUTF 


NXTRUB 

IALTR 

ICONSU 

JNTBN 

JBTYPE 

JRESNO 

JRUGF 


JRUTF 


MXTRUB 

JALTR 

JCONSU 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 


NUMBER  OF  CURRENT  PRIMARY  RUDB. 

4 

NUMBER  OF  RESOURCE  DESCRIBED  BY  RUDB.  * 

NUMBER  OF  RESOURCE  UTILIZATION  GROUPING  FUNCTION.* 
1 •*  CLASS • . 

3«“  INDIVIDUAL.  * 

NUMBER  OF^KESOURCE  UTILIZATION  TIMING  FUNCTION.  * 

3.-  ARBITRARY.  * 

ADRESS  OF  SECONDARY  RUB.  * 

ADRESS  OF  ALTERNATE  RUDB. 

UNITS  OF  CONSUMPTION  PER  UNIT  USER.  * 

NUMBER  OF  CURRENT  SECONDARY  RUDB.  * 

4 

NUMBER  OF  RESOURCE  DESCRIBED  BY  RUDB. 

NUMBER  OF  RESOURCE  UTILIZATION  GROUPING  FUNCTION 
I.”  CLASS 

3*1  INDIVIDUAL^  primary  RES0URCE  consumed. 
NUMBER  ^RESOURCE  UTILIZATION  TIMING  FUNCTION. 

3.”  ARBITRARY. 

NOT  USED 

ADRESS  OF  ALTERNATE  RUDB. 

UNITS  OF  CONSUMPTION  PER  UNIT  USFR. 

T* 

************* 


* 
> * 
* 
* 
* 
* 


J*** ******** ******************************************** 


****** *** 


COMMON  BLOCK 


VARIABLE 


- SORDSC  * 

description  * 

♦ 

*** 

SOURCES  IAS  DEFINED  BY  COURSE  * 

PROCBLOC  (AT  SOURCF).  J 

GETSOUKCE  TASK.  * 

* 
* 


NOSRCS 


1SRCPBCI) 
ISTASM I ) 
ISRRU6 ( I ) 
ISRUDB(I) 
ISORNN(I) 


NUMBER  OF 
TRACKS) 

ADRESS  OF 
ADRESS  OF 
ADRESS  OF  RUB. 
ADRESS  OF  RUDB. 


SOURCE  NUMBER. 

NOTE.-  I LOOPS  OVER  ALL  TRACKS. 


****************++***+*+*****+*m+*mmmWmmw* 


* 

* 

* 

♦ 

********* 
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***************************************************************** 
* * 

* COMMON  BLOCK  - TB  * 

* * 

******** ****** ************* ********* ******* ************* ********* 
* * * 

* VARIABLE  * DESCRIPTION  * 

* * * 

***************************************************************** 


* 

* 

* 

* 

* 

* 


IBLKN 

IBLKT1 

ITSKFN 

ITSKPT 

IARUB 


* 

* 

* 

* 

* 

* 


NUMBER  OF  TASK  BLOCK. 

2 

TASK  FUNCTION  NUMBER. 

TASK  TYPE. 

ADRESS  OF  ASSOCIATED  RUB. 


* 

* 

* 

* 

* 

* 


l * NPARMS  * NUMBER  OF  PARAMETERS  ASSOCIATED  WITH  TASK.  * 


* IPARM(I)  * ITH  PARAMETER  * 

* ITIME1  * START  TIME  FOR  THIS  TASK  * 

* ITIME2  * END  TIME  FOR  THIS  TASK.  * 

* LITIMI  * EARLIEST  START  TIME  FOR  ALL  TASKS  IN  THE  * 

* * CURRENTLY  ACTIVE  TASK  LIST.  * 

* LITIM2  * LATEST  START  TIME  FOR  ALL  TASKS  IN  THE  * 

* * CURRENTLY  ACTIVE  TASK  LIST.  * 

* ICLSZE  * CLASS  SIZE  ASSOCIATED  WITH  THIS  TASK.  * 

* * * 


***************************************************************** 


ii 


R'  . 

h 

K i 


i 


L 


******************  *********  *********41  * *♦********♦*************,(,** 

* * 

* COMMON  BLOCK  - TDR  * 

* 


* 

r : 

VARIABLE 

* 

* 

* 

DESCRIPTIO 

* 

N * 

*-  * 

♦♦♦♦it************************************************************ 
* * 

* 

ITDATE 

* 

TIME  OF  TRAINING  DEMAND 

* 

* 

* 

STUDNO 

* 

NUMBER  OF  STUDENTS  DEMANDED.  * 

* 

ii 

ITTYPE 

* 

TRAINEE  TYPE.  1-PILOT 

* 

* 

* 

2-COPILOT 

* 

* 

* 

3-OSO 

* 

* 

* 

4-DSO 

* 

* 

ICRSN 

* 

COURSE  NUMBER. 

* 

* 

IOGRAD 

♦ 

NOT  USED.  IGRADUATION  ID 

GENERATED  BY  STEP  2).  * 

* 

IOTYPE 

* 

DEMAND  TYPE.  1-  CCTS  DUE 

TO  DELIVERIES.  * 

/ 

* 

2-  CCTS  DUE 

TO  ATTRITION.  * 

* 

* 

3-  PMT 

* 

£ 

* 

* 

* VARIABLE  * DESCRIPTION  * 

t***^********  ******************************************  ********* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


NSYNCT 
NT  SKS 
IDSTSKd  ) 
ICLSID(I ) 
ICOMIDd  ) 

KTIMEld  ) 
KTIME2CI  ) 

KLASZE(I) 

LT1MEI 

LTIME2 


* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 


NUMBER  OF  SYNC  TASKS  IN  LIST. 

NUMBER  OF  TASKS  IN  LIST. 

TASK  ADRESS. 

POINTER  TO  CLASS  IN  LIST  OF  CURRENT  CLASSES. 
IF  =0»  THEN  TASK  I IS  A CLASS  TASK. 

IF  =1,  THEN  TASK  I IS  A COMMON  TASK. 

START  TIME  FOR  TASK  I. 

END  TIME  FOR  TASK  1.  (TIMES  ARE  ONLY 
APPLICABLE  TO  RESOURCE  UTILIZATION  TASKS) 

TO  BE  USED  FOR  TASK  I. 

KTIMEI  ENTRIES. 

KTIME2  ENTRIES. 


CLASS  SIZE 
MINIMUM  OF 
MAXIMUM  OF 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 


in*************************1******************************  ********* 


**************************************************************** 

* 

* COMMON  BLOCK-  WORKB 

* 

**************************************************************** 
* * 

* VARIABLE  * DESCRIPTION 

* * 

**************************************************************** 


* IP BLOC (34)  * WORK  AREA  FOR  STORING  A PROCBLOC. 


* (SEE  FIG  8.3 

* OF  PROCBLOC). 


FOR  DETAILED  DESCRIPTION 


* IWTASM12)  * WORK  AREA  FOR  STORING  A TASK  BLOCK. 


* (SEE  FIG  8.4  FOR  DETAILED  DESCRIPTION 

* OF  TASK  BLOCK). 


* I ADRSB(  ) * NOT  OSED. 


**************************************************************** 


w 


1 


H 


r 


I 


§ 


♦♦♦^♦$ ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦*♦*♦* ********  * 
* * 

* COMMON  BLOCK-  WRKA  * 

* * 
******  **!******  *************************************************** 

♦ ♦ * 

* VARIABLE  * DESCRIPTION  * 

* * * 
***************************************************************** 


* 

♦ 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

♦ 

* 

* 

* 

* 

* 

* 


NUMTR 


JDATE(I) 
STUDSNd  ) 
JID< I) 
JTTYPE( I ) 


JDTYPE ( I ) 


LIMTR 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


NUMBER  OF  CURRENT  TRAINING  DEMANDS  FOR 
COURSE  IN  PROCESS. 

TIME  OF  ITH  TRAINING  DFMAND. 

NUMBER  OF  STUDENTS  IN  ITH  TRAINING  DEMAND. 

NOT  USED. (CREW  # GENERATED  BY  STFP  2) 

TRAINEE  TYPE.  1-PILOTS 

2- COPILOTS 

3- 0  SO 

4- DSO 

DEMAND  TYPE.  1-CCTS  DUE  TO  DELIVERY. 

2- CCTS  DUE  TO  ATTRITION 

3- PMT 

4- RGUND  OFF  GENERATED  BY  PROGRAM 
DIMENSION  LIMIT  FOR  TRAINING  DEMANDS  FDR 

ONE  COURSE. 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


***************************************************************** 
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* CLASS  BLOCK  * 

* 

”******“*’»*****>**********.,...,,.,,,,t,,,„t:ktttt't'tttttn* 

* WORD  - - - - - 


DESCRIPTION 


* J * COURSE  NUMBER.  * 

* 3 * ?.U?!cR  °F  STUDENTS  IN  CLASS.  * 

3 * CLASS  PRIORITY.  * 

* c * TIME  UF  NEXT  SCHEDULED  EVENT  FQr  ri  *cc  * 

: 2 : ^ 

l-INACTIVE.  * 

*m  !lasLWXT  PktDETERHJN6'>  transfer  block  : 

^n5cc5DENT1FICAT10N  NUMBER.  * 

^D^OnTatT"0"  PR0CBL0C- 
unioueRclassLnumber.L1ST  °F  current  classes.  * 

DURATION  OF  CURRENT  LAG.  * 

reason  for  current  lac.  1-resource  missing.  * 

6— SYNC • FAILURE.  * 

adress  uf  class  in  mass  storage*  F*IL0Re* 

COURSE  PRIORITY.  b ‘ » 

TOT^ET?MF6r!\cf  CUSS-  ,N0T  USED).  * 

IJTAL  TIME  CLASS  HAS  BEEN  LAGGFn 

LINK  TO  NEXT  CLASS  BLOCK. 


8 

9 

10 

11 

12 

13 

14 


15 

16 

17 

18 


***************************„^^^ 
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*************************************************************** 


TRAINING  DEMAND  BLOCK 

>***«* ******** ************* ******************* ****** ************ 
* 

WORD  * DESCRIPTION 

* 

1***** ************************************************** ******** 

1 * NUMBER  OF  STUDENTS. 

2 * DEMAND  TIME 

3*0 

4 * TRAINEE  TYPE 

5 * DEMAND  TYPE 

6 * POINTER  TO  NEXT  DEMAND  FOR  COURSE. 


NOTE.-  NDXTDim  IN  COMMON  CBLK  CONTAINS  A 
POINTER  TO  THE  FIRST  TRAINING  DEMAND 
FOR  THE  ITH  COURSE. 

NDXTDL ( I ) IN  COMMON  CBLK  CONTAINS  A 
POINTER  TO  THE  LAST  TRAINING  DEMAND 
FOR  THE  ITH  COURSE. 


******************************************************* ******** 


***************************************************************** 
* * 


* 

P R 

OCESSING  BLOCK 

* 

* 

***************************************************************** 

* 

* 

* 

* 

WORD 

* 

DLSCRI  P T 1 0 N 

* 

* 

* 

* 

***************************************************************** 

* 

* 

* 

* 

1 

* 

INTERNAL  BLOCK  NUMBER. 

* 

* 

2 

* 

BLOCK  TVPt  • il-PROCfeLOCi 

* 

* 

3 

* 

DURATION. 

* 

* 

4 

* 

BLOCK  PRIORITY 

* 

* 

5 

* 

SYNCHRONIZATION  TYPE. 

* 

* 

6 

* 

NUMBER  OF  PROCBLOC  SYNCHRONIZED  WITH. 

* 

* 

7 

* 

NUMBER  OF  LEFT  BRANCHES. 

* 

* 

8 

* 

LEFT  BRANCH  POINTER  1 

* 

* 

9 

* 

PRIORITY  1 

* 

* 

10 

* 

PERCENTAGE  1 

* 

* 

11 

* 

LEFT  BRANCH  POINTER  2 

* 

* 

12 

* 

PRIORITY  2 

* 

* 

13 

* 

PERCENTAGE  2 

* 

* 

14 

* 

LEFT  BRANCH  POINTER  3 

* 

* 

15 

* 

PRIORITY  3 

* 

* 

16 

* 

PERCENTAGE  3 

* 

* 

17 

* 

LEFT  BRANCH  POINTER  4 

* 

* 

18 

* 

PRIORITY  4 

* 

* 

19 

* 

PERCENTAGE  4 

* 

* 

20 

* 

LEFT  bRANCH  POINTER  5 

* 

* 

21 

* 

Priority  5 

* 

* 

22 

* 

PERCENTAGE  5 

* 

* 

23 

* 

NUMBER  OF  TASKS 

* 

* 

24 

* 

POINTER  TO  TASK  1 

* 

* 

25 

* 

POINTER  TO  TASK  2 

* 

* 

26 

* 

POINTER  TO  TASK  3 

* 

* 

27 

* 

POINTER  TO  TASK  4 

* 

* 

28 

* 

POINTER  TO  TASK  5 

* 

* 

29 

* 

NUMBER  OF  RIGHT  BRANCHES 

* 

* 

30 

* 

RIGHT  BRANCH  POINTER  1 

* 

* 

31 

* 

RIGHT  BRANCH  POINTER  2 

* 

* 

32 

* 

RIGHT  BRANCH  POINTER  3 

* 

* 

33 

* 

RIGHT  BRANCH  POINTER  4 

* 

* 

34 

* 

RIGHT  BRANCH  POINTER  5 

* 

* 

* 

* 

************************************ ********t**** ******* ********* 
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******  ****** ***************************************************** 


* * 

* TASK  BLOCK  * 

* * 
***************************************************************** 
* * * 

* WORD  * DESCRIPTION  * 


* * * 
***************************************************************** 


* 

* 

* 

* 

1 

* 

INTERNAL  BLOCK  NUMBER. 

* 

* 

2 

* 

BLOCK  TYPE.  (2-TASK  BLOCK) 

* 

* 

3 

* 

TASK  FUNCTION  NUMBER.  (NUMBER  OF  ROUTINE  INVOKED) 

* 

* 

A 

* 

TASK  TYPE.  1-NORMAL 

* 

* 

* 

2-EXTRAS 

* 

* 

5 

* 

POINTER  TO  RESOURCE  UTILIZATION  BLOCK. 

* 

* 

6 

♦ 

NUMBER  OF  PARAMETERS 

* 

* 

7 

* 

PARAMETER  1 

* 

* 

B 

* 

PARAMETER  2 

* 

* 

9 

* 

PARAMETER  3 

* 

* 

10 

* 

PARAMETER  4 

* 

* 

11 

* 

PARAMETER  5 

* 

* 

* 

* 

***************************************************************** 


iiflM*  ' 1 1 '-m 


***************************************************************** 
* * 

* RESOURCE  UTILIZATION  BLOCK  * 

* * 

***************************************************************** 
♦ * * 

* WORD  * DESCRIPTION  * 

* * * 

♦ ♦♦♦a*********************************1*************************** 

* * * 

* I * INTERNAL  BLOCK  NUMBER.  * 

* 2 * BLOCK  TYPE.  (3-RUB)  * 

* 3 * NUMBER  OF  RESOURCE  UTILIZATION  DESCRIPTION  BLOCKS.  * 

* 4 * POINTER  TO  RUDB  1 * 

* 5 * POINTER  TO  RUDB  2 * 


* 9 * POINTER  TO  RUDB  6 * 

* * * 
*************************** ************************************** 
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RESOURCE  UTILIZATION  DESCRIPTION  BLOCK 


*+*****+**++********+*+**++*++*+*++++m*+Mmmmm^m+1m^^* 

* WORD  * DESCRIPTION  * 

♦ 

********* 


* 

* 

* 

* 

* 

* 

* 

* 

* 


1 * INTERNAL  BLOCK  NUMBER 

2 * BLOCK  TYPE.  (4-RUDB) 

3 * RESOURCE  NUMBER 

4 * RESOURCE  UTILIZATION  GROUPING  FUNCTION  NUMBER. 

5 * RESOURCE  UTILIZATION  TIMING  FUNCTION  NUMBER. 

6 * POINTER  TO  NEXT  RUB.  (FOR  COMPOSITE  RESOURCES) 

7 * POINTER  TO  ALTERNATE  RUDB. 

B ♦ WITS  OF  CONSUMPTION  / UNIT  USER. 


* 

* 

* 

* 

* 

* 

* 

* 

* 


3.8 


Common  Variable  Cross  Reference  Table 


The  tables  on  the  following  pages  show  how  each  subroutine  uses  each 
common  variable.  The  subroutine  names  are  printed  across  the  top  of  the  table, 
and  the  variable  names  down  the  left  side. 
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CROSS  REFERENCE  USAGE  CODES 


A ARGUMENT 

THE  SYMBOL  IS  A VARIABLE  OR  FUNCTION  NAME  WHICH  APPEARS  IN  AN 
ARGUMENT  LIST  OF  A CALL,  SUBROUTINE,  FUNCTION,  OR  ENTRY  SlATtMLNT. 

D DATA  INITIALIZATION 

THE  SYMBOL  IS  A VARIABLE  WHICH  IS  INITIALIZED  IN  A L A T A OR  TYPE 
SPECIFICATION  STATEMENT  SUCH  AS  A COMPLEX  SPECIFICATION  STATEMENT. 

F VALUE 

THE  SYMBOL  IS  A: 

1.  VARIABLE  WHOSE  MOST  RECENTLY  ASSIGNED  VALUE  IS  ACCLSSFO 
BUT  NOT  CHANCED. 

2.  FUNCTION  NAME  OR  ARGUMENT  OF  A FUNCTION  WHICH  APPEARS  ON 
THE  RIGHT  SIDE  OF  AN  EQUAL  SIGN  IN  AN  ASSIGNMENT 
STATEMENT  OR  APPEARS  IN  AN  IF  STATEMENT  TEST. 

3.  DUMMY  ARLUMENT  IN  A STATEMENT  FUNCTION  OFF INIT ION. 

S LTQKL  A VALUE 


THE  SYMBOL  IS  A: 

1.  VARIABLE  WHOSE  VALUE  IS  REPLACED  BY  ANOTHER  VALUE. 

2.  FUNCTION  NAME  WHICH  APPEARS  ON  THE  LEFT  SIDE  OF  AN  EQUAL 
SIGN  IN  AN  ASSIGNMENT  STATEMENT. 

3.  NAME  OF  A STATEMENT  FUNCTION  IN  THE  DEFINITION  OF  THAT 
FUNCTIUN. 

c ujmm 

THE  SYMBOL  IS  A VARIABLE  WHICH  APPEARS  IN  A COMMON  STATEMENT  OR  IS 
THE  NAME  OF  A LABELED  COMMON  BLOCK. 


E EQUIVALENCE 

THE  SYMBOL  IS  A VARIABLE  WHICH  APPEARS  IN  AN  EQUIVALENCE  SIA1EMENI. 

T IX££_££JE£l£l£AIlQ£i 

THE  SYMBOL  IS  A VARIABLE  WHICH  APPEARS  IN  A : 

1.  TYPE  SPECIFICATION  STATEMENT  AND  IS  NOT  INITIALIZED  IN 
THAT  STATEMENT. 

2.  DIMENSION  OR  EXTERNAL  STATEMENT. 

n EMm.pciNi 

THE  SYMBOL  IS  AN  ENTRY  POINT  DEFINED  BY  AN  ENTRY  STATEMENT  IN  A 
SUBROUTINE  OR  FUNCTION. 

X EXTERNAL  REFERENCE 

THE  SYMBOL  IS  A SUBROUTINE  OR  ENTRY  NAME  WHICH  APPEARS  IN  A CALL 
STATEMENT. 
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CROSS  REFERENCE  SUMMARY  C********* *********************  TRAM3 
SYMBOL  TYPE  „r 


CROSS  REFERENCE  SUMMARY  C************** **********.******  TRAM3 
SYMBOL  TYPE  tfC 


I DONER 


f 


I0PTF2 


CROSS  REFERENCE  SUMMARY 


JCONSU 


JDT 


L0TIM2 


NCjSRCS 


SYMBOL  TYPE  USAGE  SUMMARY 


NPARMS 


CROSS  REFERENCE  SUMMARY 


r 
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Section  4 . 0 

PHASE  4 PROGRAMMER'S  GUIDE 


Section  4.1 
INTRODUCTION 


The  purpose  of  Phase  4 is  to  report  the  resource  usage  of  the  training 
system  and  to  compute  the  associated  costs. 


This  manual  is  intended  to  aid  the  programmer  in  the  operation  and 
modification  of  the  computer  program.  It  is  assumpd  that  the  reader  of  this 
manual  is  already  familiar  with  the  contents  of  Technical  Memorandum  SAT-5, 
TRAM  User's  Guide. 
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Section  4.2 
PROGRAM  DESCRIPTION 


The  first  processing  performed  by  phase  4 is  to  read  the  card  inputs 
and  print  them.  The  primary  resources  defined  by  the  card  inputs  are  then  etched 
with  the  primary  resources  passed  from  phase  2 via  file  24.  The  bucket  sizes 
from  that  file  complete  the  primary  resource  specifications  from  the  card  inputs. 
There  must  be  a one  to  one  correspondence  between  the  resources  from  phase  2 and 
for  those  for  phase  4.  The  secondary  resources  defined  for  phase  4 are  completely 
independent  of  the  other  TR^M  job  steps. 


The  program  then  starts  reading  the  use  records  from  unit  40.  The  data 
from  these  records  are  stored  in  two  separate  common  areas.  One  is  for  the  per- 
iodic report,  and  the  other  is  for  the  yearly  report.  Also,  a plot  bucket  record 
is  written  to  unit  51  for  each  primary  resource  that  is  to  be  plotted.  The  con- 
tents of  these  records  will  be  discussed  later.  The  program  continues  reading 
and  processing  the  use  records  until  the  time  for  the  next  report,  or  the  end  of 
the  run  is  reached. 

The  periodic  report  is  produced  at  the  specified  frequency.  This  re- 
poit  consists  of  a printout  of  the  information  stored  in  the  periodic  report  com- 
mon variables.  After  the  report  is  printed,  the  common  area  is  cleared  out  for 
the  next  report.  Note  that  this  report  is  completely  independent  of  the  yearly 
report,  and  can  be  produced  at  any  specified  frequency. 

♦ 

The  yearly  report  not  only  summarizes  the  resource  usage,  but  also  in- 
cludes the  costs  associated  with  that  usage.  These  costs  are  computed  at  the 
end  of  each  year  and  stored  for  the  final  cost  summary.  A separate  yearly  re- 
port is  printed  for  primary  and  secondary  resources.  At  this  time,  RGU  plot  data 
are  stored  for  those  resources  that  are  to  be  plotted.  In  addition,  a plot  bucket 
record  is  written  for  secondary  resources  (the  bucket  size  for  all  secondary  re- 
sources is  one  year.) 

When  the  end  of  the  run  is  reached,  a final  periodic  and  yearly  report 
are  printed,  even  if  these  reports  would  not  normally  be  due  at  this  time.  The 
final  cost  summary  is  then  printed.  This  report  shows  the  costs  that  were  in- 
curred in  each  category  for  each  year.  They are  shown  in  both  current  dollar 
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values  and  In  inflated  values.  If  RUT6E  costs  have  been  incurred  in  years  prior 
to  the  start  of  the  run,  they  will  be  shown  in  year  zero  and  negative  years. 


The  final  processing  that  is  done  is  to  produce  the  use  plots.  The  data 
for  these  plots  have  been  stored  throughout  the  run.  RGU  data,  which  consists  of 
time,  number  of  RGUs  on  hand,  and  actual  use  available,  have  been  stored  in  com- 
mon /RGU/.  The  two  temporary  files  contain  the  rest  of  the  required  information. 
These  are  the  plot  bucket  files  that  were  referred  to  earlier.  Their  records 
contain  the  time,  use,  and  maximum  use  available  for  the  resources.  The  data  con- 
tained on  these  files  are  retrieved  and  combined  with  the  RGU  data  to  produce  the 
plots.  Note  that  for  secondary  resources,  the  maximum  use  available  is  the  same 
as  the  actual  use  available,  since  there  is  no  maximum  use  restriction  on  secon- 

dary  resources. 
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Section  4.3 

SUBPROGRAM  DESCRIPTIONS 

This  section  contains  the  descriptions  of  the  individual  subprograms 
that  comprise  phase  4 of  the  TRAM  program.  The  description  for  each  subprogram 
consists  of  a statement  of  the  purpose  of  the  routine,  the  calling  sequence,  a 
description  of  its  parameters,  the  method  used,  and  a list  of  the  subprograms 
required.  A high  level  flowchart,  which  shows  the  logical  decision  points  and 
the  processing  accomplished,  is  also  included  for  each  of  the  major  subprograms. 
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cc** 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


******  PHASE  A 


PURPOSE 

TO  REPORT  THE  TIME  HISTORY  OF  TRAINING  RESOURCE  USAGE  WHICH 
WAS  PASSED  FROM  PHASE  3*  AND  COMPUTE  THE  COSTS  ASSOCIATED 
WITH  THE  TRAINING  SYSTEM 

REFERENCES 

TRAM  USERS  GUIDE  AND  TRAM  PROGRAMMERS  GUIDE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
init 

PRINT1 

PRINT  2 

PRINT3 

REPRT1 

REPRT2 

WPLOTB 

SUMRY 

FPLOT 


CC********************************************************************** 


PHASE  4 


READ  INPUTS  AND 
INITIALIZE  UNIT) 


PRINT  THE  INPUTS 


READ  A USE  RECORD 
FROM  FILE  40 


RECORD  ^ 
TIME  BEFORE 
START  TIME? 


RECORD 
TIME  AFTER 
END  TIME?  . 


^ TIME 
FOR  NEXT 
PERIODIC 
REPORT? 


DO  THE  PERIODIC 
REPORT  (REPRT  II 


INCREMENT  THE 
YEAR  NUMBER 


DO  THE  YEARLY 
REPORT  (REPRT2) 


DO  THE  PERIODIC 
REPORT  (REPRT1I 


DO  THE  FINAL  COST 
SUMMARY  (SUMRY) 


DO  THE  USE 
PLOTS  IFPLOT) 


^ TIME  ^ 
FOR  NEXT 
YEARLY 
REPORT? 


INCREMENT  THE 
YEAR  NUMBER 


DO  THE  YEARLY 
REPORT  (REPRTZ) 


ADD  USE  TO  THE 
YEARLY  TABLES 


WRITE  THE  PLOT 
BUCKET  RECORD 


PHASE  4 MAIN  PROGRAM 
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cc* 

cc* 


PURPOSE 

TO  INITIALIZE 


******* ********************** 

CC* 

CC*  SUBROUTINE 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 


IN  IT  ******************************** 


INIT 


STEP  4 OF  TRAM.  THIS  INVOLVES  THE  FOLLOWING: 


1 

2 

3 

4 

5 


READ  PARAMETERS  CARD 

READ  PRIMARY  RESOURCE  DEFINITIONS  PASSED  FROM  STEP  3 
READ  PRIMARY  AND  SECONDARY  RESOURCE  DATA  FROM  CARDS 
SET  RESOURCE  USEAGE  COUNTS  AND  COST  SUMMARIES  TO  ZERO 
SET  UP  TIME  OF  FIRST  PEROIDIC  AND  YEARLY  REPORTS 


CALLING  SEQUENCE 
CALL  INIT 

DESCRIPTION  OF  PARAMETERS 
NONE 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
CLEAR 
LOOKUP 
L00K2 


CC  ********************************* ************** ********************** 
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SUBROUTINE  INIT 


READ  THE 
NEXT  CARD 


CARD? 


END 

CARD? 


PRINT  THE  PR 
HEADER  CARD 


CARD? 


READ  AND 
PRINT  THE 
SRC  CARDS 


' DOES  THIS 
PR  MATCH  ONE 
ALREADY  READ 
.FROM  FILE  24?. 


STORE  THE  DATA 
WITH  THE  ORIGINAL 
ENTRY  FOR  THIS  PR 


PRINT  AN  ERROR 
MESSAGE 


SUBROUTINE  INIT  - CONTINUED 
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X HAS  ^ 
THIS  PR  • 
BEEN  DEFINED  BY 
THE  CARD 
V INPUTS?  / 


^ «AS^ 
LAST  PR 
BEEN 

CHECKED? 


SUBROUTINE  INIT  - CONTINUED 


INCREMENT 
INDEX  TO  THE 
NEXT  PR 


PRINT  ERROR 
MESSAGE 


LOOP  THRU 
ALL  PR'S 


PRINT  THE 
END  CARD 


LOOP  THRU  ALL  I 
SRC  REFERENCES 
IN  THE  PR'S 


^ IS  o 
THE  SRC^\ 
DEFINED? 


PRINT  ERROR 
MESSAGE 


REPLACE  THE 
CHARACTER 
NAME  WITH  ITS 
SRC  NUMBER 


A 

LAST  SRC  n 
REFERENCE  BEEN 
-w  CHECKED?  ^ 


INCREMENT INDEX 
TO  NEXT  SRC 
REFERENCE 


HAVE 

ANY  ERRORS  BEEN 
DETECTED  BY  THIS 
. SUBROUTINE?  . 


ERROR 

HALT 


CLEAR  PERIODIC, 
YEARLY,  AND 
FINAL  SUMMARY 
ARRAYS 


SET  TIME  FOR 
FIRST  PERIODIC 
AND  YEARLY 
REPORTS 


RETURN 


SUBROUTINE  INIT  - CONTINUED 


CC*****************************  CLEAR  ********************* 

CC* 

CC*  SUBROUTINE  CLEAR 

CC* 

CC*  PURPOSE 

CC*  TO  CLEAR  AN  ARRAY  TO  ZERO 

CC* 

CC*  CALLING  SEQUENCE 

CC*  CALL  CLEAR  (1ARRAY,  NWDS ) 

CC* 

CC*  DESCRIPTION  OF  PARAMETERS 
CC*  I ARRAY  - ARRAY  TO  BE  CLEARED 

CC*  NWDS  - NUMBER  OF  ELEMENTS  IN  IARRAY  TO  BE  CLEARED 

CC* 

CC*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

CC*  NONE 

CC* 

cc ********************************************************** 


******* 
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CC*  ******  *******  ********  *******  block  d ******************************* 


cc*  * 

CC*  BLOCK  DATA  * 
CC*  * 
CC*  PURPOSE  * 
CC*  TO  INITIALIZE  COMMON  AREAS  FOR  TRAM  STEP  A * 
CC*  * 


cc******* ********************************************* ****************** 


I I 
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******************************* 


CC  *******  ******  *********  *******  LD0K2 


cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


SUBROUTINE  L00K2 

PURPOSE 

TO  LOOK  UP  A VALUE  IN  A TABLE  AND  RETURN  ITS  POSITION.  THE 
TABLE  CONSISTS  OF  THOSE  ELEMENTS  IN  A TWO  DIMENSIONAL  ARRAY 
WHICH  HAVE  A CERTAIN  FIXED  FIRST  SUBSCRIPT. 

CALLING  SEQUENCE 

CALL  LOOK2  (IVAL*  IARRAY,  Nl,  N2*  N1FIX,  ICODE,  INDEX) 

DESCRIPTION  OF  PARAMETERS 
INPUT 

IVAL  - VALUE  TO  BE  SEARCHED  FOR 
IARRAY  - TABLE  OF  VALUES 

Nl  - DIMENSION  OF  FIRST  SUBSCRIPT  OF  IARRAY 

N2  - DIMENSION  OF  SECOND  SUBSCRIPT  OF  IARRAY 

N1FIX  - FIRST  SUBSCRIPT  OF  VALUES  IN  IARRAY  TO  BE  SEARCHED 

ICODE  - DATA  TYPE 

1 INTEGER 

2 CHARACTER 

OUTPUT 

INDEX  - POSITION  (SECOND  SUBSCRIPT)  OF  THE  VALUE  IN  THE 
TABLE  (ZERO  IF  NOT  FOUND) 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
NONE 


CC*  *******************************************************  ************* 
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CC*****************************  PRINT!  ****************************** 

SUBROUTINE  PRINT1 

CC* 

CC*  URTQSPRINT  THE  INPUT  PARAMETERS  FOR  TRAM  STEP  4 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


CALLING  SEQUENCE 
CALL  PRINT1 

DESCRIPTION  OF  PARAMETERS 
NONE 


CC*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
CC*  NONE 

££t******************************************************************** 


J 

r 

w* 


i 


CC*  **** ************************  PRINTS  ****************************** 
CC* 

CC*  SUBROUTINE  PRINT2 

CC* 

CC*  PURPOSE 

CC*  TO  PRINT  A TABLE  OF  THE  PRIMARY  RESOURCE  DEFINITIONS 

CC* 

CC*  CALLING  SEQUENCE 

CC*  CALL  PRINT2 

CC* 

CC*  DESCRIPTION  OF  PARAMETERS 

CC*  NONE 

CC* 

CC*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

CC*  NONE 

CC* 

CC  *********************************************** **********************, 
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cc****t ******* ***************** 

cc* 

SUBROUTINE  PRINTS 


PRINT3  ***************************** 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

cc* 


PURPOSE 

TO  PRINT  A TABLE  OF  THE  SECONDARY  RESOURCE  DEFINITIONS 

CALLING  SEQUENCE 
CALL  PRINT3 

DESCRIPTION  OF  PARAMETERS 
NONE 


*• 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 
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(X*****************************  REPRTl  ********** 

CC* 

CC*  SUBROUTINE  REPRT1 

cc* 

CC*  PURPOSE 

CC*  To  PRINT  THE  PERQID1C  REPORT 

CC* 

CC*  CALLING  SEQUENCE 

CC*  CALL  RfcPRTl 

CC* 

CC*  DESCRIPTION  OF  PARAMETERS 
CC*  NONE 

CC* 

CC*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
CC*  CLEAR 

CC* 

cc* *************************************************** ***************** 
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CC**«** ********* *************** 

cc* 

SUBROUTINE  REPRT2 


REPRT2  ****************************** 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

cc* 

cc* 


PURPOSE  . 

TO  COMPUTE  THE  COSTS  INCURRED  BY  THE  RESOURCE  USEAGE  DURING 
THE  YEAR  AND  TO  PRINT  THE  YEARLY  SUMMARY  REPORT 


CALLING  SEQUENCE 

CALL  REPRT2  ( I YEAR ) 


DESCRIPTION  OF  PARAMETERS 
INPUT 

IYEAR  - YEAR  NUMBER  OF  THIS  REPORT 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
CLEAR 
PRYEAR 


CC* 


SRYEAR 


CC* 

CC*************************** ****** ************** ********************** 
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SUBROUTINE  REPRT2 
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**********1 


cc* 

cc*  SUBROUTINE  PR YEAR 

CC* 

CC*  PURPOSE 

CC*  TO  DO  THE  YEARLY  REPORT  FOR  THE  PRIMARY  RESOURCES 

CC*  CALLING  SEQUENCE 

CC*  CALL  PRYEAR  (IYEAR) 

CC* 

CC*  DESCRIPTION  OF  PARAMETERS 
CC*  INPUT 

CC*  IYEAR  - YEAR  NUMBER 

CC* 

CC*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
CC*  I1COST 

CC*  RGCOST 

CC*  PRINT* 

CC*  ROTE 

CC*  WRGU 

CC* 

CC ******************** 


JttHM 


- 


j- — ' - wL  ^ ji 


QC*«*** ***************** ******* 

cc* 

SUBROUTINE  PRINT4 


PR INT4  ****************************** 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


PURPOSE 

TO  PRINT  THE  PRIMARY  RESOURCE  YEARLY  REPORT  FOR  SUBROUTINE 
PR YEAR 


CALLING  SEQUENCE 

CALL  PRINT*  ( I tIYEAR»IVAL ) 


DESCRIPTION  OF  PARAMETERS 
INPUT 

I - NUMBER  OF  THE  PRIMARY  RESOURCE  WHICH  THIS  CALL  IS 

FOR»  OR  ZERO  TO  INITIALIZE  A NEW  REPORT 
I YEAR  - YEAR  NUMBER 

I VAL  - ARRAY  OF  VALUES  FOR  THE  PRIMARY  RESOURCE 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 


1 


CC***********«********  ««******,  SR  YEAR 

SUBROUTINE  SR YEAR 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


******************************  I 


PURPOSE 

TO  DO  THE  YEARLY  REPORT  FOR  THE  SECONDARY  RESOURCES 

CALLING  SEQUENCE 

CALL  SR YEAR  ( I YEAR) 

DESCRIPTION  OF  PARAMETERS 
INPUT 

IYEAR  - YEAR  NUMBER 

SUB?icostE  AN°  FUNCTI0N  subp*°grams  REQUIRED 
RGCOST 
PRINTS 
ROTE 
WRGU 
WPLOTB 


CC **************************** 


****•**********************************„ 
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SR  YEAR 


LOOP  ON  ALL 

SECONDARY 

RESOURCES 


ADD  OTHER 
COSTS  FOR 
THIS  SR 


COMPUTE  THE  AMOUNT 
OF  THIS  SR  WHICH 
WAS  USED 


COMPUTE  THE  NUMBER 
OF  ROU'S  REQUIRED 
I FOR  THIS  SR 


WRITE  THE 
REPORT  ON 
THIS  SR 


STORE  THE 
ROU  PLOT 
DATA  FOR 
THIS  SR 


COMPUTE  THE 
NUMBER  OF  RGU'S 
PURCHASED 


WRITE  THE 
PLOT  BUCKET 
RECORD  FOR 
THIS  SR 


^ T\X 

THIS  SR 

TRANSFERRABLE? 


— ^ HAVE \ 
ALL  SR’S  BEEN 
PROCESSED? 


CURRENT  NUMBER 
OF  RGU’S -MAX  w 
[PAST  NUMBER. 
NUMBER  REQUIRED 
THIS  YEAR] 


SET  CURRENT  NUM- 
BER OF  RGU’S  TO  THE 
NUMBER  REQUIRED 
THIS  YEAR 


INCREMENT 
INDEX  TO 
NEXT  SR 


X is  X 

X THIS  THE  X 
FIRST  TIME  RGU'S 
HAVE  BEEN  PURCHASED 
X THIS 

X SR?  X 


ADD 

RDTE 

COST 


SUBROUTINE  SR  YEAR 
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CC ******************* **********  PRINT 5 ****************************** 

cc* 

CC*  SUBROUTINE  PRINT5 

CC* 

CC*  PURPOSE 

CC*  TO  PRINT  THE  SECONDARY  RESOURCE  YEARLY  REPORT  FOR  SUBROUTINE 

CC*  SRYEAR 

CC* 

CC*  CALLING  SEQUENCE 

CC*  CALL  PRINT!)  ( I , I YEAR,  I VAL  > 

CC* 

CC*  DESCRIPTION  OF  PARAMETERS 
CC*  INPUT 

cc*  T “ NUMBER  OF  THE  SECONDARY  RESOURCE  WHICH  THIS  CALL  IS 

CC*  FOR,  OR  ZERO  TO  INITIALIZE  A NEW  REPORT 

CC*  I YEAR  - YEAR  NUMBER 

CC*  IVAL  - ARRAY  OF  VALUES  FOR  THE  SECONDARY  RESOURCE 

CC* 

CC*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

CC*  NONE 

CC* 

CC********************** *********************************************** 


nfirr-ii'-iii 


cc* **************************** 

CO 


ROTE  ********************************* 


SUBROUTINE  ROTE  * 

* 

PURPOSE  * 

TO  ADO  THE  RDTE  COST  TO  THE  COST  SUMMARY.  ROTE  COST  IS  * 

SPREAD  OUT  OVER  THE  N YEARS  PREECEDING  THE  CURRENT  YEAR  * 

* 

CALLING  SEQUENCE  * 

CALL  RDTE  (IYEAR,  ICOST,  NJ  * 

* 

DESCRIPTION  OF  PARAMETERS  * 

INPUT  * 

IYEAR  - YEAR  NUMBER  OF  THE  CURRENT  YEAR  * 

ICOST  - ROTE  COST  TO  BE  SPREAD  OVER  N YEARS  * 

N - NUMBER  OF  YEARS  OVER  WHICH  ICOST  IS  TO  BE  INCURRED  * 

* 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED  * 

NONE  * 


cc 
cc* 
cc# 
cc# 
cc* 
cc# 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc#**** 


**************************  ricosT  ****************************** 

SUBROUTINE  IICOST 

P IMPOSE 

geme!utor\mtsCOST  associated  *itm  the  purchase  of  resource 

CALLING  SEQUENCE 

CALL  IICOST  (II,  NRGUP*  NRGUH,  I CO ST) 

DESCRIPTION  OF  PARANETERS 
INPUT 

II  - INITIAL  INVESTMENT  COST  PER  RGU 
NR  GUP  - NUMBER  OF  RGUS  PURCHASED 
NRGUH  " NUMBER  OF  RGUS  ALREADY  ON  HAND 
OUTPUT 

ICO  ST  - INITIAL  INVESTMENT  COST 
METHOD 

SUBROUTINE  RGCOST  IS  CALLED  TO  COMPUTE  THE  COST  AS  FOLLOWS 

1 IF  II  .LT«  0 
COST  * NR GUP  * lABS(lI) 

2 IF  II  .GT.  0 
COST  * C2  - Cl 
C2  * N * II  * RL  **  LOG2IN) 

Cl  * NRGUH  * II  * RL"**  L0G2 (NRGUH) 

N * NRGUH  ♦ NRGOP 

RL  * LEARNING  RATE  FROM  PARAMETER  CARD 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
RGCOST 


**********l|t****  ♦♦*****»♦»»♦♦♦»♦»**♦»»***»*********  *»»*»»»»»»»*** 


u 1 


564 


IS  I 


RGCOST 


V 


1. 


I Li 

n 


cc***  ************************** 

cc* 


****************************** 


cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


SUBROUTINE  RGCOST 

PU*TOSCOHPUTE  THE  COST  ASSOCIATED  NITH  HAVING  RESOURCE 
GENERATOR  UNITS  ON  HANO 

CALLING  SEQUENCE  T™T% 

CALL  RGCOST  III*  NAGU*  ICOST) 

DESCRIPTION  OP  PARAMETERS 

,!JUT  - COST  PER  RGU  I NEGATIVE  TO  PREVENT  LEARNING  RATE 
FROM  BEING  APPLIED) 

101 QU  - NUMBER  OF  RESOURCE  GENERATOR  UNITS 

OUTPUT 

ICOST  - COST 

METHOD 

IF  II  «LT • 0 

COST  * NRGU  • IABSIII) 

If  11  COST  * NRGU  * II  • RL  **  LOG2INRGU) 

il  l LEARNING  RATE  FROM  PARAMETER  CARD 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
NONE 


* 

►* 


n 

LI 


J 


j 


K 
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purpose, 
to  PRINT 


THE  FINAL  COST  SUMMARY  REPORT 


(£*****************************  SUMRY 
CC* 

cc*  SUBROUTINE  SUMRY 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 
cc* 


******************************** 

* 


CALLING  SEQUENCE 

CALL  SUMRY  {NYEARSI 

DESCRIPTION  OF  PARAMETERS 
INPUT 

NYEARS  - NUMBER  OF  YEARS 


SUBROUTINE 

PRINT6 


BEING  SUMARIZED 
AND  FUNCTION  SUBPROGRAMS  REQUIRED 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


CC********************************************************************** 


0 

0 


* t 


n 


all 

o 


SUBROUTINE  SUMRY 


i 


PRINTS  ****************************** 


CC* ********************* ******* 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


SUBROUTINE  PRINTS  ’ 

I 

PURPOSE 

TO  PRINT  THE  FINAL  COST  SUMMARY  REPORT  FOR  SUBROUTINE  SUMRY  1 

i 

CALLING  SEQUENCE 

CALL  PRINT6  (ISM,  IYEAR,  IRTDE , II,  IRI,  IOM) 

DESCRIPTION  OF  PARAMETERS 
INPUT 

ISM  - CONTROL  VARIABLE 

LESS  THAN  ZERO  TO  INITIALIZE  THE  REPORT 
ZERO  TO  PRINT  FINAL  TOTALS 

GREATER  THAN  ZERO  TO  PRINT  SUMMARY  FOR  A SINGLE  YEAR 
IYEAR  - YEAR  NUMBER 
IRTDE  - RTDE  COST  FOR  THE  YEAR 
II  - INITIAL  INVESTMENT  COST  FOR  THE  YEAR 
IRI  - RECURING  INVESTMENT  COST  FOR  THE  YEAR 
IOM  - OPERATIONS  AND  MAINTENANCE  COST  FOR  THE  YEAR 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
NONE 


££*«***** ******************** ****** ********** ****** ******** ************ 
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cc**< 

cc* 

cc* 

SUBROUTINE  WRGU 

cc* 

cc* 

PURPOSE 

cc* 

TU  STORE 

THE  RGU  PLOT  DATA  IN  COMMON  /RGU/ 

cc* 

cc* 

CALLING  SEQUENCE 

cc* 

CALL  WRGU  (iRESflYEARfNRGUtlAA) 

cc* 

cc* 

DESCRIPTION 

OF  PARAMETERS 

cc* 

input 

cc* 

IRES  - 

PRIMARY  RESOURCE  NUMBER*  OR  THE  NEGATIVE  OF 

cc* 

secondary  resource  NUMBER 

cc* 

IYEAR  - 

YEAR  NUMBER 

cc* 

NRGU  - 

NUMBER  OF  RESOURCE  GENERATING  UNITS  ON  HAND 

cc* 

I AA  “ 

ACTUAL  NUMBER  OF  USE  UNITS  AVAILABLE 

cc* 

cc* 

SUBROUTINE  i 

AND  FUNCTION  SUBPROGRAMS  REQUIRED 

cc* 

NONE 

cc* 

CC* ********************************************** ********************** 


CC ***************** ************ 

cc* 


WPLOTB  ****************************** 


SUBROUTINE  WPLOTB 


PURPOSE 

TO  WRITE  OUT  A PLOT  BUCKET  RECORD  TO  THE  PRIMARY  RESOURCE 
FILE  OR  TO  THE  SECONDARY  RESOURCE  FILE 


CALLING  SEQUENCE 

CALL  WPLOTt  (IRES,  ITIME,  IUSE,  IMA ) 


DESCRIPTION  OF  PARAMETERS 
INPUT 


IRES  - 


ITIME 

IUSE 


PRIMARY  RESOURCE  NUMBER,  OR  THE  NEGATIVE  OF  THE 

SECONDARY  RESOURCE  NUMBER 

BUCKET  END  TIME  IN  CALENDAR  UNITS 

NUMBER  OF  UNITS  OF  THE  RESOURCE  USED  DURING  THE 
BUCKE  T 

MAXIMUM  NUMBER  OF  USE  UNITS  AVAILABLE  FOR  THE 
RESOURCE  DURING  THE  BUCKET 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 


NONE 


cc* ******  *************************************************** 


?• 
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'WWW  JUL 


CC ********************** ***♦*♦♦  FPLOT  ************************** 

CC* 

CC*  SUBROUTINE  FPLOT 

CC* 

CC*  PURPOSE 

CC*  TO  RETRIEVE  THE  PLOT  DATA  FOR  EACH  RESOURCE  THAT  IS  TO  BE 

CC*  PLOTTED  AND  CALL  SUBROUTINE  PLOTU  TO  DO  THE  PLOTS 

CC* 

CC*  CALLING  SEQUENCE 

CC*  CALL  FPLOT  (IYEAR) 

CC* 

CC*  DESCRIPTION  OF  PARAMETERS 
CC*  INPUT 

CC*  IYEAR  - NUMBER  OF  YEARS  IN  THE  RUN 

CC* 

CC*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
CC*  PLOTU 

CC*  E FPLOT 

CC* 

CC«****** ********************************************************* 
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LOOP  THRU 
ALL  PRIMARY 
RESOURCES 


REWINDTHr 
PR  PLOT  BUCKET 
FILE 


READ  A RECORD 
FROM  THE  PLOT 
BUCKET  FILE 


RETRIEVE 
THE  RQU 
DATA  FOR 
THIS  PR 


DO  THE 
USE  PLOT 


^ IS 
THIS  RECORD 
FOR  THE 
CURRENT 
^ PR7  ^ 


HAVE  \ 
ALL  PR'S  BEEN 
PROCESSED? 


STORE  THE  PLOT 
DATA  FOR 
THE  PLOT 


INCREMENT 
INDEX  TO 
THE  NfXTPff 


SUBROUTINE  FPLOT 


LOOT  THRU  ALL 

SECONDARY 

RESOURCES 


REWINDTHE 
SR  PLOT 
BUCKET  FILE 


READ  A RECORD 
FROM  THE  PLOT 
BUCKET  FILE 


RETRiEVETHE 
RGU  DATA  FOR 
THIS  SR 


DO  THE 
USE  PLOT 


^ /"HAVE  v 
/ ALL  SR’S  BEEN 
PROCESSED? 


RETURN 


INCREMENT 
INDEX  TO  THE 
NEXT  SR 


SUBROUTINE  FPLOT  - CONTINUED 


CC ******** *********************  LOOKUP  ****************************** 

CC* 

CC*  SUBROUTINE  LOOKUP 

CC* 

CC*  PURPOSE 

CC*  TO  LOOK  UP  A VALUE  IN  A TABLE  AND  RETURN  ITS  POSITION 

CC* 

CC*  CALLING  SEQUENCE 

CC*  CALL  LOOKUP  (IVAL,  IARRAV,  N,  ICODE,  INDEX) 

CC* 

CC*  DESCRIPTION  OF  PARAMETERS 
CC*  INPUT 

CC*  IVAL  - VALUE  TO  BE  SEARCHED  FOR 

CC*  I ARRAY-  TABLE  OF  VALUES  TO  BE  SEARCHED  FOR 

CC*  N - NUMBER  OF  ENTRIES  IN  I ARRAY 

CC*  ICODE  - 1 -DATA  VALUES  OCCUPY  ONE  WORD 

CC*  2 - DATA  VALUES  OCCUPY  THREE  WORDS , USED  FOR  IC 

CC*  CHARACTER  FIELDS  ON  IBM  COMPUTER 

CC*  (REQUIRES  IVAL(3)»  IARRAYO.N)  ) 

CC*  OUTPUT 

CC*  INDEX  - INDEX  OF  THE  VALUE  IN  THE  TABLE.  ZERO  IF  THE  VALUE  ' 

CC*  IS  NOT  FOUND 

CC* 

CC*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

CC*  NONE 

CC* 

CC************ *********************************** **********************, 
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CC*****************************  PLOTU 


CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 

CC* 


SUBROUTINE  PLOTU 


PURPOSE 

TO  PLOT  THE  RESOURCE  USE  PLOTS 


CALLING  SEQUENCE 

CALL  PLOTU  ( XMAt USE 


*TIME1 »NPT  SI* AA  * RGUS  *TIME2 ,NPTS2 ,NAME ) 


DESCRIPTION  OF  PARAMETERS 

XMA  - MAXIMUM  USE  AVAILABLE  PER  BUCKET  ARRAY 
USE  - USE  PER  BUCKET  ARRAY 

TIMEX  - END  TIME  OF  BUCKET  FOR  EACH  VALUE  OF  XMA  AND  USE 
NPTS1  - NUMBER  OF  ELEMENTS  IN  XMAt  USEt  AND  TIME1  ARRAYS 
AA  “ ACTUAL  USE  AVAILABLE  PER  YEAR  ARRAY 
RGUS  - NUMBER  OF  RGUS  ARRAY 

T1ME2  - YEAR  NUMBER  ASSOCIATED  WITH  EACH  AA  AND  RGUS  VALUE 
NPTS2  - NUMBER  OF  ELEMENTS  IN  AA*  RGUS,  AND  TIME2  ARRAYS 
NAME  - TEN  CHARACTER  NAME  OF  RESOURCE 

EACH  OF  THE  DATA  ARRAYS  ( XMA  , USE, TIME  1 , AA , P.GUS,TIME2  ) HAVE 
AS  THEIR  FIRST  POINT,  THE  VALUE  FOR  THE  BEGINNING  OF  THE 
FIRST  BUCKET.  THE  REST  OF  THE  VALUES  ARE  FOR  THE  END  OF  EACH 
BUCKET.  THEREFORE,  THE  NUMBER  OF  POINTS  EQUALS  THE  NUMBER 
OF  BUCKETS  PLUS  ONE. 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
SCALE  1 
SCALE2 
STEPFN 
MAXMIN 
LABELX 
PLOT 
SYMBOL 
AXIS 


CC****************  *************  MAXMIN  ******************************* 

CC* 

CC*  SUBROUTINE  HAXHIN 

CC* 

CC*  PURPOSE  1 

CC*  TO  FIND  THE  MAXIMUM  AND  MINIMUM  VALUE  IN  AN  ARRAY 

CC*  1 

CC*  CALLING  SEQUENCE  1 

CC*  CALL  MAXMIN  ( X ARRAY t NPTSi  XMIN»  XMAX) 

CC* 

CC*  DESCRIPTION  OF  PARAMETERS 
CC*  INPUT 

CC*  X ARRAY  - ARRAY  OF  VALUES 

CC*  NPTS  - NUMBER  OF  VALUES 

CC*  OUTPUT 

CC*  XMIN  - MINIMUM  VALUE  IN  XARRAY 

CC*  XMAX  - MAXIMUM  VALUE  IN  XARRAY 

CC* 

CC*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

CC*  NONE 

CC* 

CC*****************  ******************************  ********************** 


I 


rm 

i« 


CC**< 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

CC*’ 


***  SCALE1  ****************************** 

SUBROUTINE  SCALE  1 


'“Tconpute  the  scale  factors  for  an  {^l*’t^nv^Ue“oED 

PROVIOE^COMPATIB^LITY^BETWEEN  THE  CALSP.N  SCALE  SUBROUTINE 
AND  THE  STANDARD  CALCOMP  SCALE  SUBROUTINE. 

CALCALL  ( XARRAY*  NPTS.  SIZE*  XMIN*  DX) 

DESCRIPTION  OF  PARAMETERS 

TaHJaT  - ARRAY  OF  VALUES  FOR  WHICH  A SCALE  IS  TO  BE  COHFUTEO 
_ MIIMRER  OF  ELEMENTS  IN  XARRAY 
sul  - UN*"  IN  FLOATING  POINT  INCHES  AVAILABLE  FOR 

PLOTTING  THE  ARRAY 

- VALUE  OF  FIRST  ANNOTATION  ON  THE  AXIS 
DX1  - SCALE  FACTOR  (NUMBER  OF  UNITS  PER  INCH  OF  PLOT) 

SUBROUTINE  ANO  FUNCTION  SUBPROGRAMS  REQUIRED 
MAXM1N 
SCALE 


| 


if 
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CC******** **************  *******  SCALE2  ******************************' 
CC* 

CC*  SUBROUTINE  SC  ALE  2 

CC* 

CC*  PURPOSE 

CC*  TO  CONVERT  AN  ARRAY  OF  VALUES  INTO  PLOTTER  INCHES 

CC* 

CC*  CALLING  SEQUENCE 

CC*  CALL  SCALE2  ( X ARRAY  • NPTSi  XMIN»  OX) 

CC* 

CC*  DESCRIPTION  OF  PARAMETERS 
CC*  INPUT-OUTPUT 

CC*  X ARRAY  - ARRAY  OF  VALUES  TO  BE  CONVERTED 

CC*  INPUT 

CC*  NPTS  - NUMBER  OF  ELEMENTS  IN  XARRAY 

CC*  XM1N  - MINIMUM  VALUE  ON  PLOT  AXIS 

CC*  DX  - PLOT  AXIS  INCREMENT  <UNITS  PER  INCH) 

CC* 

CC*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

CC*  NONE 

CC* 

CC* *************** ***************************************** ************ 


ii 

hi 

■ f 
i 1 


CC*****************************  ST  EPFN  ******************************* 

CC* 

CC*  SUBROUTINE  STEPFN  < 

CC* 

CC*  PURPOSE 

CC*  TO  PLOT  A STEP  FUNCTION 

CC* 

CC*  CALLING  SEQUENCE 

CC*  CALL  STEPFN  ( XARRAY*  YARRAY,  NPTS) 

CC* 

CC*  DESCRIPTION  OF  PARAMETERS 
CC*  INPUT 

CC*  XARRAY  - X VALUES  OF  THE  POINTS  DEFINING  THE  STEP  FUNCTION 

CC*  UN  PLOTTER  INCHES) 

CC*  YARRAY  - Y VALUES  OF  THE  POINTS  DEFINING  THE  STEP  FUNCTION 

CC*  (IN  PLOTTER  INCHES) 

CC*  NPTS  - NUMBER  OF  ELEMENTS  IN  XARRAY  AND  YARRAY 

CC* 

CC*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

CC*  PLOT 

CC* 

cc****************************************«****«* ********************** 
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I 
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cc****>*  ************  ************ 

cc* 

SUBROUTINE  LABELX 


LA  BEL X ****************************** 


CC* 

CC* 

CC* 

CC* 

CC* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


PURPOSE 

TO  LAbEL  A LINE  DRAWN  BY  SUBROUTINE  STEPFN.  THE  X POSITION 
OF  THE  LABEL  IS  SPECIFIED,  ANO  THE  Y POSITION  IS  COMPUTED 
SO  THAT  IT  WILL  BE  ON  THE  LINE. 


CALLING  SfcOUENCfc 
CALL  LABELX  (X, 


Yf  NPTS » XL,  LBL,  NC,  CHRSZE ) 


DESCRIPTION  OF  PARAMETERS 
INPUT 

- X COORDINATES 

- Y COORDINATES 

- NUMBER  OF  ELEMENTS  IN  X AND  Y 

- X POSITION  OF  LABEL 

- LABEL 

NUMBER  OF  CHARACTERS  IN  LABEL 
CHARACTER  SIZE 


X 
Y 

NPTS 
XL 
LBL 
NC 
CHRSZE- 


CC* 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 


SYMBOL 


CC* 


ww  * 

CC* ***************************************** *************************** 


L! 


LI 


0 

0 


n 


i 
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Section  4.4 


SUBROUTINE  CROSS  REFERENCE  TABLE 


In  the  table  on  the  following  pages,  the  column  headings  show  the 
subroutine  names  that  do  the  calling,  and  the  row  headings  give  the  subroutine 
names  that  are  called. 
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Section  4.5 


COMMON  VARIABLE  DEFINITIONS 


The  tables  on  the  following  pages  define  the  meaning  of  each  varia- 
ble contained  in  each  of  the  common  blocks  used  by  this  program. 


***************************************************************************** 


********** 


VARIABLE 


********** 


KPR( 18*  J ) 


COMMON  /RESRCE/  - PART  1 
PRIMARY  RESOURCE  DATA 


******************************************* **** ****** ********* * *** 


DESCRIPTION 


****************************************************************** 


PRIMARY  RESOURCE  DATA  (18  WORDS  PER  PR,  SECOND  SUBSCRIPT 
IS  INDEXED  BY  PR  NUMBER  I 


****************************************************************** 

* 

WORD  * CONTENTS 

* 

****************************************************************** 

* 

1 * POINTER  TO  FIRST  SRC  USED  BY  THIS  PR 

* (SUBSCRIPT  IN  KSRCL  ARRAY) 

2 * POINTER  TO  LAST  SRC  USED  BY  THIS  PR 

* (SUBSCRIPT  IN  KSRCL  ARRAY) 

* OR  ZERO  IF  NO  SRC  IS  USED 

3 * NUMBER  OF  USE  UNITS  WHICH  AN  RGU  FOR  THIS  PR  CAN 


PRODUCE  PER  YEAR 
ROTE  COST  (DOLLARS) 

RDTE  PERIOD  (YEARS) 

INITIAL  INVESTMENT  COST  PER  RGU  (DOLLARS) 

RECURRING  INVESTMENT  COST  PER  RGU  (DOLLARS) 

RECURRING  INVESTMENT  COST  PER  YEAR  (DOLLARS) 

OPERATIONS  AND  MAINTENANCE  COST  PER  RGU  (DOLLARS) 
OPERATIONS  AND  MAINTENANCE  COST  PER  UNIT  OF  USE  (DOLLARS) 
PLOT  SWITCH 
TRANSFERRA8LE  SWITCH 
BUCKET  SIZE  (CUS) 

FIRST  TIME  USE  SWITCH 

CURRENT  NUMBER  OF  RGUS  REQUIRED  FOR  THIS  PR 
PR  NAME  (FIRST  4 CHARACTERS) 

PR  NAME  (SECOND  A CHARACTERS) 

PR  NAME  (LAST  2 CHARACTERS) 


PR  NAME 
PR  NAME 
PR  NAME 


THIS 


****************************************************************** 

NUMBER  OF  PRIMARY  RESOURCES  IN  THE  KPR  ARRAY 

MAXIMUM  NUMBER  OF  PRIMARY  RESOURCES  WHICH  CAN  BE  DEFINED 

(DIMENSION  OF  SECOND  SUBSCRIPT  OF  KPR  ARRAY) 


*********************************************************************** 


****** 


u 


********* ******* ******************* ***************************** ************** 

COMMON  /RESRCE/  - PART  2 * 

SECONDARY  RESOURCE  COMPONENT  USAGE  LIST  * 

****************************************************************************** 
* * 

VARIABLE  * DESCRIPTION  • 

* * 

******************************************************  ************************ 
* * 

KSRCL(5.JI*  SRC  USAGE  DATA  FOR  PRIMARY  RESOURCES  <5  WORDS  PER  SRC»  EACH  * 

* PR  DEFINITION  GIVES  THE  J INDEX  FOR  THE  FIRST  AND  LAST  SRC  * 

* WHICH  IT  USE  SI  * 

* * 

******************************************************************** 

• * * 

* WORD  * CONTENTS  * 

* * * 

******************************************************************** 
* * * 

* 1 • UNITS  OF  USE  PER  RGU  FOR  THE  PR  * 

* 2 * UNITS  OF  USE  PER  UNIT  OF  PR  USE  ♦ 

* 3 * POINTER  TO  SRC  NAME  IN  KSRC  ARRAY  * 

* * ( INITIALLY  CONTAINS  FIRST  4 CHARACTERS  OF  SRC  NAME)  * 

* 4 * SECOND  4 CHARACTERS  OF  SRC  NAME  * 

* 5 * LAST  TWO  CHARACTERS  OF  SRC  NAME  * 

* * « 

******************************************************************** 
• * 

NSRCL  * NUMBER  OF  ENTRIES  IN  KSRCL  ARRAY  * 

MSRCL  * MAXIMUM  NUMBER  OF  ENTRIES  WICH  CAN  BE  STORED  IN  THE  KSRCL  ARRAY  * 

* (DIMENSION  OF  SECOND  SUBSCRIPT)  * 

* * 
*************************************************************************  ***** 
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♦♦♦♦♦♦♦t**************************************************^^^*^^^^^^^ 


********** 

VARIABLE 

1 

********** 

KSR ( 17 1 J ) 


NSR 

HSR 


COMMON  /RESRCE/  - PART  3 
SECONDARY  RESOURCE  DATA 

i********************************************************^^^^^ 

{ 

1  DESCRIPTION 

****************************************** ************************ 

SECONDARY  RESOURCE  DATA  (17  WORDS  PER  SR t SECOND  SUBSCRIPT  IS 
INDEXED  BY  SR  NUMBER) 

****************************************************************** 

* 

WORD  * CONTENTS 

* 

*****************  **£******♦***•***♦*********♦**  *****  ************** 
* 

1 * POINTER  TO  FIRST  COMPONENT  OF  THIS  SR 

* (SUBSCRIPT  IN  KSRC  ARRAY) 

2 * POINTER  TO  LAST  COMPONENT  OF  THIS  SR 

* (SUBSCRIPT  IN  KSRC  ARRAY) 

3 * NUMBER  OF  USE  UNITS  WHICH  AN  RGU  FOR  THIS  SR  CAN 

* PRODUCE  PER  YEAR 

4 * RDTE  COST  (DOLLARS) 

5 * RDTE  PtRlOD  (YEARS) 

6 * INITIAL  INVESTMENT  COST  PER  RGU  (DOLLARS) 

7 * RECURRING  INVESTMENT  COST  PER  RGU  (DOLLARS) 

8 * RECURRING  INVESTMENT  COST  PER  YEAR  (DOLLARS) 

9 * OPERATIONS  AND  MAINTENANCE  COST  PER  RGU  (DOLLARS) 

1C  * OPERATIONS  AND  MAINTENANCE  COST  PER  UNIT  OF  USE  (DOLLARS) 

11  * PLOT  SWITCH 

12  * TRANSFERRABLE  SWITCH 

13  * FIRST  TIME  USE  SWITCH 

14  * CURRENT  NUMBER  OF  RGUS  REQUIRED  FOR  THIS  SR 

15  * SR  NAME  - FIRST  FOUR  CHARACTERS 

16  * SR  NAME  - SECOND  FOUR  CHARACTERS 

17  * SR  NAME  - LAST  TWO  CAHRACTERS 

* 

**************************************************** ************** 

NUMBER  OF  SECONDARY  RESOURCES  IN  THE  KSR  ARRAY 

MAXIMUM  NUMBER  OF  SECONDARY  RESOURCES  WHICH  CAN  BE  DEFINED  < 

(DIMENSION  OF  SECOND  SUBSCRIPT  OF  KSR  ARRAY)  < 


************************************* **************************************** 


1 


**********#*******************************************************************' 
. * 

* COMMON  /RESRCE/  - PART  4 

* SECONDARY  RESOURCE  COMPONENTS 

* 

****************************************************************************** 
* * 

* VARIABLE  ♦ DESCRIPTION 

* * 

*** I*********************************** *************************************** 
* * 

* KSRC (3 • J )♦  SECONDARY  RESOURCE  COMPONENT  NAMES 

« * (3  WORDS  PER  10  CHARACTER  NAME) 

* NSRC  * NUMBER  OF  SRC  NAMES  IN  THE  KSRC  ARRAY 

* MSRC  • MAXIMUM  NUMBER  OF  SRCS  WHICH  CAN  BE  DEFINED 


* miMcutTnu  ne  ftrnun  ciiBcroTDT  nc  vcor  iDBiv 


***************************************************************************** 


*********** 

VARIABLE 

*********** 

KPRP(3,J) 


KPRY(3, J) 


KSRCY(K) 


*********** 


COMMON  /RESRCE/  - PART  5 
RESOURCE  USAGE  TABLES 

***************************************************************** 


DESCRIPTION 

***************************************************************** 


PR  USE  DATA  FOR  PERIODIC  REPORT 

(SECOND  SUBSCRIPT  MUST  BE  DIMENSIONED  AT  THE  MAXIMUM  NUMBER 
OF  PRIMARY  RESOURCES  ALLOWED,  WHICH  IS  GIVEN  BY  VARIABLE  MPR) 

1 PEAK  USE  PER  BUCKET 

2 NUMBER  OF  BUCKETS  DURING  WHICH  THIS  RESOURCE  WAS  USED 

3 TOTAL  USE 

PR  USE  DATA  FOR  YEARLY  REPORT 

(J  DIMENSION  MUST  BE  THE  SAME  AS  THAT  OF  KRPR  ARRAY) 

1 PEAK  USE  PER  BUCKET 

2 NUMBER  OF  BUCKETS  DURING  WHICH  THIS  RESOURCE  WAS  USED 

3 TOTAL  USE 

SRC  USE  DATA  FOR  THE  YEARLY  REPORT 

(MUST  BE  DIMENSIONED  AT  THE  MAXIMUM  NUMBER  OF  SECONDARY 
RESOURCE  COMPONENTS  ALLOWED,  WHICH  IS  GIVEN  BY  VARIABLE  MSRC ) 

EACH  ELEMENT  CONTAINS  THE  TOTAL  USE  FOR  THAT  SRC  DURING  THE 
YEAR 

***************************************************************** 
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« * 


*+**+********+*+*******************+**++m+Mm*mmmmmmtmm"^0m 


COMMON  /PARMS/ 


* 

* 

***************** 

* 

VARIABLE  * DESCRIPTION 

* * 

*********************  **************************************** 


I start 

I END 
IPERO 

rate 

ICUS 

NEXTP 

NEXTY 


* 

* 

* 

* 

* 

* 

* 

* 

* 


START  TIME  FOR  PHASE  4 TO  START  GENERATING  REPORTS 
END  TIME  FOR  PHASE  4 REPORTS 
TIME  INTERVAL  BETWEEN  PERIODIC  REPORTS 
INFLATION  RATE  (RATIO  - .1  e 10  PERCENT) 

NUMBER  L'F  CALENDAR  UNITS  PER  YEAR 
TIME  OF  NEXT  PERIODIC  REPORT 
TIME  OF  NEXT  YEARLY  REPORT 


******************** 


596 


* NRGUl(IfJ)  * NUMBER  OF  RGUS  ON  HAND  FOR  EACH  PRIMARY  RESOURCE  DURING 

* * EACH  YEAR 

* IAAl(IfJ)  * ACTUAL  USE  AVAILABLE  FOR  EACH  PRIMARY  RESOURCE  DURING 

* * EACH  YEAR 

* NRGU2(I*J)  * NUMBER  OF  RGUS  ON  HAND  FOR  EACH  SECONDARY  RESOURCE  DURING 


* I AA2  (I t J ) 
« 


* EACH  YEAR 

* ACTUAL  USE  AVAILABLE  FOR  EACH  SECONDARY  RESOURCE  DURING 

* EACH  YEAR 

♦ * 

* * FOR  ALL  OF  THE  ABOVE  ARRAYS 

* * I SUBSCRIPT  IS  INDEXED  ON  YEAR  NUMBER 

* * J SUBSCRIPT  IS  INDEXED  ON  RESOURCE  NUMBER 

* * 

mMMM**M***M*M***M***M**********WM***$***MM**M*M*****MM***M*l 
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Section  4.6 


COMMON  VARIABLE  CROSS  REFERENCE  TABLE 


The  table  on  the  following  pages  shows  how  each  subroutine  uses  each 
common  variable.  The  subroutine  names  are  printed  across  the  top  of  the  table, 
and  the  variable  names  down  the  left  side. 
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Section  4.7 


TEMPORARY  FILES 


Two  temporary  tiles  are  created  for  the  purposes  of  sorting  data  for 
plotting.  The  following  figures  describe  the  records  on  these  files. 


1 


****************************************************************************** 

* 


FILE  51  DESCRIPTION 
PRIMARY  RESOURCE  PLOT  BUCKET  FILE 


*******************************************************  ***************^**4,  ***4, 

* 


* THIS  UNFORMATTED  (BINARY)  FILE  CONTAINS  RECORDS  OF  THE  FOLLOWING  FORMAT 


****************************************************************************** 
* * 

* WORD  * CONTENTS 

* * 

****************************************************************************** 
* * 

* 1 ♦ PRIMARY  RESOURCE  NUMBER 

* 2 * BUCKET  END  TIME  (CUS) 

* 3 * NUMBER  OF  UNITS  OF  THE  RESOURCE  USED  DURING  THIS  BUCKET 

* 4 * MAXIMUM  NUMBER  OF  UNITS  OF  THE  RESOURCE  AVAILABLE  DURING  THIS  BUCKET 

**************++*+********+**+++*+++****+***+*****+++*+++++t+++++++++mi,+m* 


1 
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; THIS  UNFORMATTED  (BINARri  FILE 

WORO  * CONTENTS  * 

♦ * 

1 ♦ SECONDARY  RESOURCE  NUMBER  * 

2 * END  TIME  OF  THIS  YEAR  IN  CALENDAR  UNITS  * 

3 * NUMBER  OF  UNITS  OF  THE  RESOURCE  USED  DURING  THIS  YEAR  ! 

‘ m™  wSE5sUm,iI5i0I*T?lT2.E,i0!*Ci  AVAIL*6LE  CURING  THIS  YEAR  I 
* 1 U,t  THIS  IS  THE  SAME  AS  ACTUAL  AVAILABLE  FOR  SR)  * 

********** *** ******************************************* ******* 


0 
0 
0 
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The  purpose  of  Phase  5 of  TRAM  is  to  report  on  the  usage  of  trainees 
and  on  the  time  lags  that  occur  in  the  training  system. 

This  manual  is  intended  to  aid  the  programmer  in  the  operation  and 
modification  of  the  computer  program.  It  is  assumed  that  the  reader  of  this 
manual  is  already  familiar  with  the  contents  of  Technical  Memorandum  SAT-5, 
TRAM  User's  Guide 
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Section  5.2 


PROGRAM  DESCRIPTION 


Phase  5 reads  the  time  ordered  records  from  the  source/lag  file  and 
stores  a summary  of  these  events  in  two  separate  areas,  one  for  the  periodic 
reports,  and  the  other  for  the  yearly  reports.  These  reports  are  produced  at 
the  specified  intervals  from  this  stored  information.  When  the  end  time  that 
was  specified  on  the  parameter  card  is  reached,  the  program  outputs  a set  of 
final  reports  to  cover  the  period  from  the  last  yearly  report  to  the  end  of 
the  run. 
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Section  5.3 

SUBPROGRAM  DESCRIPTIONS 
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This  section  contains  the  descriptions  of  the  individual  subprogram's 
that  comprise  phase  5 of  the  TRAM  program.  The  description  for  each  subprogram 
consists  of  a statement  of  the  purpose  of  the  routine,  the  calling  sequence,  a 
description  of  its  parameters,  the  method  used,  and  a list  of  the  subprograms 
required.  A high  level  flowchart,  which  shows  the  logical  decision  points  and 
the  processing  accomplished,  is  also  included  for  each  of  the  major  subprograms. 

Two  subroutines  (RDNAME  and  NAME)  are  not  shown  here,  but  are  documen- 
ted in  the  phase  3 programmers'  guide. 
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* 


CC ********************** *******  PHASE5  ************************* 

CC* 

CC*  SUBROUTINE  PHASES 

CC* 

CC*  PURPOSE 

CC*  TO  OUTPUT  THE.  LAG  REPORTS  AND  THE  SOURCE  REPORTS  FROM  THE 

CC*  RESULTS  OF  PHASE 3* 

CC* 

CC*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

CC*  RDNAME 

CC*  CLEAR 

CC*  REPRT1 

CC*  REPRT2 

CC* 

CC* *************************  ************************** ************ 


******  CLEAR  ******************************* 


SUBROUTINE  CLEAR 

PURPOSE 

TO  CLEAR  AN  ARRAY  TO  ZERO 

CALLING  SEQUENCE 

CALL  CLEAR  ( I ARRAY*  NWDS) 

DESCRIPTION  OF  PARAMETERS 

I ARRAY  - ARRAY  TO  BE  CLEARED 

NWDS  - NUMBER  OF  ELEMENTS  IN  IARRAY  TO  bE  CLEARED 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
NONE 


I ( 


I 


I 


i. 


cc  ************* **************** 

cc* 

SUBROUTINE  REPRT1 


CC* 

CC* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


REPRT1  ****************************** 


PURPOSE 

TO  PRINT 


THE  LAG  REPORT 


CALLING  SEQUENCE 

CALL  REPRT1  (ICODE,  ISTRT, 


I END) 


DESCRIPTION  OF  PARAMETERS 
INPUT 

ICODE  - INDICATES  REPORT  TYPE 

1 PERIODIC 

2 YEARLY 

3 FINAL  SUMMARY 
START  TIME  OF  THE  REPORT 
END  TIME  OF  THE  REPORT 


ISTRT 

1END 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
NAME 


CC************* ************** ****************************************** 


s' 


■ 


cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 

cc* 


SUBROUTINE  REPRT2 

PURPOSE 

TO  PRINT  THE  SOURCE  REPORT 

CALLING  SEQUENCE 

CALL  REPRT2  ( ICOOE  ,ISTRT,IENDJ 

DESCRIPTION  OF  PARAMETERS 
INPUT 

ICOOE  - INDICATES  REPORT  TYPE 

1 PERIODIC 

2 YEARLY 

3 FINAL  SUMARY 

ISTRT  START  TIME  OF  THE  REPORT 
IEND  - END  TIME  OF  THE  REPORT 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 


CC*********mM*M**M*Mm*,*tM****«mM«M*WM«M*M«*mM 
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Section  5.4 

SUBROUTINE  CROSS  REFERENCE  TABLE 


; 


In  the  table  on  the  following  page,  the  column  headings  show  the 
names  of  the  subroutines  that  do  the  calling,  and  the  row  headings  give  the 
names  of  the  subroutines  that  are  called. 


new 


ROUTINE  USAGE  SUMMARY 

OR  ENTRY 


I 


Section  5.5 

COMMON  VARIABLE  DEFINITIONS 

The  tables  on  the  following  pages  define  the  meaning  of  each  varia 
ble  contained  in  each  of  the  common  blocks  used  by  this  program. 


****************************************************************************** 

* 

COMMON  /LAG/  - DATA  FOR  LAG  REPORTS 

***************************************************************************** 

* 

VARIABLE  * DESCRIPTION 

* 

***************************************************************************** 

* 

BASE  POINTER  TO  LAG  DATA  FOR  COURSES 
NUMBER  DF  COURSES 
BASE  POINTER  TO  LAG  DATA  FOR 
NUMBER  OF  PROCESSING  BLOCKS 
BASE  POINTER  TO  LAG  DATA  FOR 
NUMBER  OF  TASKS 


I PL1 

NL1 

IPL2 

NL2 

I PL3 

NL3 


* 
* 
* 
* 
* 
* 
* 

iLAGlIt 4)* 
* 


PROCESSING  BLOCKS 


TASKS 


LAG  DATA  - 4 WORDS  PER  ENTRY 


******************************************************************* 
* * 

* WORD  * CONTENTS 

* * 

******************************************************************* 
* * 


* I * TOTAL  LAG  TIME  DURING  THIS  PERIOD 

* 2 * TOTAL  LAG  TIME  TO  DATE  (FOR  PERIODIC  REPORT) 

* 3 * TOTAL  LAG  TIME  DURING  THIS  YEAR 

* 4 * TOTAL  LAG  TIME  TO  OATE  (FOR  YEARLY  REPORT) 

* * 

******************************************************************* 

MLAG  * MAXIMUM  NUMBER  OF  ENTRIES  WHICH  CAN  BE  STORED  IN  THE  ILAG  ARRAY 

* (DIMENSION  OF  FIRST  SUBSCRIPT) 

* 

***************************************************************************** 
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**************************************  j*****************************,**^**^** 

COMMON  /SOURCE/  - DATA  FOR  SOURCE  REPORTS 

**********************************************************  ******************* 
♦ 

VARIABLE  * DESCRIPTION 

* 

********  ********************************************************************* 
* 

IPS1  * BASE  POINTER  TO  SOURCE  DATA  FOR  COURSES 
NSI  * NUMBER  OF  COURSES 

IPS2  * BASE  POINTER  TO  SOURCE  DATA  FOR  SOURCES 
NS2  ♦ NUMBER  OF  SOURCES 

* • ; 

ISRCE  ( 1*8)*  SOURCE  DATA  - 8 WORDS  PER  ENTRY 

* 

*************************** **************************************** 
* * 

* WORD  * CONTENTS 

* * 

************************************************  ******,1*****^^,^ 
* * 

* I * NUMBER  OF  TRAINEES  USED  DURING  THIS  PERIOD 

* 2 * TOTAL  TRAINING  TIME  FOR  TRAINEES  USED  DURING  THIS  PERIOD 

* 3 * TOTAL  NUMbER  OF  TRAINEES  USED  TD  DATE 

* * (FOR  PERIODIC  REPORT) 

* 4 * TOTAL  TRAINING  TIME  TO  DATE  (FOR  PERIODIC  REPORT) 

* 5 * NUMBER  OF  TRAINEES  USED  DURING  THIS  YEAR 

* 6 * TOTAL  TRAINING  TIME  FOR  TRAINEES  USED  DURING  THIS  YEAR 

* 7 * TOTAL  NUMBER  OF  TRAINEES  USED  TO  DATE 

* * (FOR  YEARLY  REPORT) 

* B * TOTAL  TRAINING  TIME  TO  DATE  (FOR  YEARLY  REPORT) 

* * 

********************************************  *********************** 
* 

MSRCE  * MAXIMUM  NUMBER  OF  ENTRIES  WHICH  CAN  BE  STORED  IN  ISRCE  ARRAY 

* (DIMENSION  OF  FIRST  SUBSCRIPT) 

* 

****************************************  ,************************************ 
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The  table  on  the  following  pages  shows  how  each  subroutine  uses 
each  common  variable.  The  subroutine  names  are  printed  across  the  top  of  the 
table,  and  the  variable  names  down  the  left  side. 


CROSS  REFERENCE  SUMMARY  C*****************************  PHASES  ******************************* 


Section  6.0 

MERGE  PROGRAM  PROGRAWER'S  GUIDE 


INTRODUCTION 

The  purpose  of  this  program  is  to  merge  the  original  resources  file 
from  Phase  2 and  the  unused  resources  file  from  Phase  3 into  a single  resource 
use  file  for  input  to  Phase  4. 

This  manual  is  intended  to  aid  the  programmer  in  the  operation  and 
modification  of  the  computer  program. 
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. . . .. 


Section  6.2 
PROGRAM  DESCRIPTION 


The  merge  program  reads  matched  pairs  of  records  from  units  23  and 
33,  and  outputs  single  records  containing  the  data  from  the  original  pair.  The 
records  on  unit  23  contain  the  quantity  of  the  resource  available  during  the 
bucket,  and  the  records  on  unit  33  contain  the  quantity  remaining  at  the  end  of 
the  bucket.  Both  of  these  files  are  sorted  by  time  and  resource  number,  which 
are  used  as  keys  to  the  merge  operation. 

The  program  keeps  track  of  the  time  at  which  the  next  record  should 
be  encountered  for  each  resource,  based  on  its  bucket  size  (obtained  from  unit 
24.)  This  enables  any  missing  records  on  unit  23  to  be  detected.  A hissing  rec- 
ord on  this  file  indicates  that  the  resource  is  no  longer  available.  Mien  this 
occurs,  the  program  writes  a record  to  the  output  file  with  both  the  quantity 
available  and  the  quantity  remaining  set  to  zero.  If  the  resource  becomes  avail- 
able again  later,  the  merge  program  will  continue  processing  it.  A missing  rec- 
ord on  unit  33  indicates  that  all  of  the  resource  has  been  used,  so  the  quantity 
remaining  is  set  to  zero  and  a record  is  written  to  the  output  file. 

This  merge  operation  continues  until  an  end  of  file  is  encountered  on 
unit  23.  An  extra  record  is  then  written  to  the  output  file  to  signal  the  end 
of  file  to  phase  4.  This  record  has  all  fields  set  to  zero  except  for  the  bucket 
time,  which  is  filled  in  with  a large  number. 

The  merge  program  consists  of  a main  program,  which  does  not  require 
any  subroutines  or  common  blocks.  The  documentary  prologue  from  this  program 
is  shown  on  the  next  page,  and  a high  level  flowchart  is  included  in  the  pages 
following  that. 
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CC*****************************  MERGE  *********  **********v****;^VJ(k,,*** 
CC*  * 

CC*  MERGE  PROGRAM  * 

CC*  > 

CC*  PURPOSE  ¥ 

CC*  Tli  READ  THE  RFSOURCE  QUANTITY  AVAILABLE  FILE  FROM  TRAM  STLP2  * 

CC*  ANl.  THE  RLSfJURCE  QUANTITY  REMAINING  FILE  FROM  TRAM  STEP  D»  * 

CC*  AND  TO  MERGE  THEM  INTO  A SINGLE  RESOURCE  USE  FILE  FOR  JNPuT  * 

CC*  TO  IRAM  STOP  4.  * 

CC*  * 

CC*  INPUT  FILES  * 

CC*  I TRANSFERRED  PRIMARY  RESOURCES  FILE  (TPR  ) - FROM  TRAM  STEP  2 * 

CC*  ON  FORTRAN  LOGICAL  UNIT  24  * 

CC*  RECORD  1 - NUMBER  LF  RESOURCES  * 

CC*  2 - RESOURCE  NAMES  * 

CC*  3 - NUMBER  OF  CALENDAR  UNITS  PER  YEAR  * 

CC*  4 - RESOURCE  BUCKET  SIZES  * 

CC*  * 

CC*  2 RESOURCE  QUANTITY  AVAILABLE  FILE  - FROM  TRAM  STEP  2 * 

CC*  LN  FORTRAN  LOGICAL  UNIT  23  * 

CC*  EACH  RECORD  CONTAINS  THE  FOLLOWING  * 

CC*  I TIME  * 

CC*  2 RESOURCE  NUMBER  * 

CC*  3 QUANTITY  AVAILABLE 

CC*  - THESE  RECORDS  HAVE  BEEN  SORTED  ON  TIME  AND  RESOURCE  NUMBER  * 

CC*  - RECORDS  WILL  NOT  EE  PRESENT  FOR  TIMES  WHEN  THE  RESGURCF  * 

CC*  IS  NOT  AVAILABLE 

CC* 

CC*  3 RESOURCE  QUANTITY  REMAINING  FILE  - FROM  TRAM  STFP  3 
CC*  ON  FORTRAN  LUGICAL  UNIT  33 

CC*  EACH  RECORD  CONTAINS  THE  FOLLOWING 

CC*  I TIME  * 

CC*  2 RESOURCE  NUMBER  * 

CC*  3 QUANTITY  REMAINING  * 

CC*  - 1H6SE  RECORDS  HAVE  BEEN  SORTED  ON  TIME  AND  RESOURCE  NUMBER  * 

CC*  - RECORDS  WILL  NOT  BE  PRESENT  FOR  TIMES  WHEN  ALL  PRESENT  * 

CC*  UNITS  OF  ThE  RESOURCE  HAVE  BEEN  USED  * 

CC*  * 

CC*  OUTPUT  FILE  * 

CC*  RESOURCE  USE  FILE  * 

CC*  ON  FORTRAN  LOGICAL  WIT  4C  * 

CC*  EACH  RECORD  CONTAINS  THE  FOLLOWING  * 

CC*  I TIME  * 

CC*  2 RESOURCE  NUMBER  * 

CC*  3 MAXIMUM  QUANTITY  AVAILABLE  IN  THIS  BUCKET  * 

CC*  4 QUANTITY  REMAINING  AT  THE  END  OF  THIS  BUCKET  * 

CC*  * 

CC*  SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED  * 

CC*  NONE  * * 

CC*  * 

CC ***************** **********  *************** *********************v ****** 
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DOES  N 
THE  RECORD  COME 
BEFORE  THE  ONE 
WE  EXPECTED? 


/ » \ 

THE  NEXT  TIME 

OF  THIS  RESOURCE 

V ZERO  / 


MERGE  PROGRAM  - CONTINUED 


STORE  THE  NEXT 
EXPECTED  TIME 
FOR  THIS  NEW 
RESOURCE 


OUTPUT  A RECORD  TO 
UNIT  40  WITH  ZERO 
AVAILABLE  - ZERO 
REMAINING  FOR 
RESOURCE  WE  HAD 
EXPECTED 


SET  THE  NEXT  EXPECTED 
TIME  FOR  THE  RESOURCE 
TO  ZERO 


PRINT  ERROR  MESSAGE 


SET  THE  READ  SWITCH 
FOR  UNIT  23  SO  THAT 
THE  SAME  RECORD  WILL 
BE  USED  NEXT  TIME 


Section  6.3 
DESCRIPTION  OF  INPUTS 


The  only  inputs  to  the  merge  program  are  tlic.se  binary  files  passed  from 
the  previous  TRAM  job  steps? 

23  (original  resources  file  frem  phase  2) 

24  (resource  information  from  phase  2) 

33  (unused  resources  file  from  phase  3) 

A description  of  each  of  these  files  is  contained  in  the  programmers 
guide  for  the  phase  which  creates  it . 


Section  6.4 

DESCRIPTION  OF  OUTPUTS 


The  main  output  of  this  program  is  the  binary  file  written  to  unit  40 
for  passage  to  phase  4.  The  contents  of  this  file  are  described  in  the  program*' 
prologue,  which  is  shown  in  section  2.  The  only  other  outputs  are  the  printed 
error  messages,  or  the  "MERGE  COMPLETED"  message,  which  is  printed  to  indicate 
that  no  errors  were  detected. 


Section  7.0 

TROLIE  PROGRAMMER'S  GUIDE 


7.1  Introduction 


This  guide  is  intended  to  supplement  the  user's  guide  for  TROLIE  in 
Technical  Memorandum  SAT-S,  TRAM  User's  Guide.  TROLIE  consists  of  five  parts. 
The  INPUT  subroutine  reads  inputs,  documents  the  inputs  and  writes  the  resource 
name  records  in  Unit  2.  The  MAIN  program  computes  the  resource  use  and  writes 
the  resouice  use  records  on  Unit  1.  Subroutines  TAB  and  WTAB  are  table  writers. 
TAB  has  an  extra  argument  for  writing  column  headings.  BLOCK  DATA  clears  arrays 
and  introduces  some  literal  data. 


7.2  Subroutines 


The  section  which  follows  contains  descriptions  of  the  subprograms, 
commons  and  output  data  sets. 

Subroutine  INPUT 


The  inputs  are  read  in  accordance  with  Table  1.  As  each  major  set 
of  cards  are  read,  output  is  created  to  document  their  values.  Individual 
deliveries  arc  not  documented.  A program  error  stop  will  occur  if  array 
sizes  are  exceeded  (label  100),  if  a delivery  is  attempted  to  an  undefined  air 
base  (label  100),  or  it  there  are  an  insufficient  number  of  input  cards 

(label  101).  input  also  writes  the  resource  names  record  on  unit  2 for  use 
in  Phase  4 of  TRAM. 


Subroutine  BLOCK  DATA 

BLOCK  DATA  contains  names  for  printout  purposes  and  clears  arrays 

used  in  MAIN.  The  arrays  cleared  by  BLOCK  DATA  must  be  cleared  because  initial 
zeros  are  assumed. 


Subroutine  IVTAB(NDATA,  NCOLS,  NLINES,  COLLAB 
and 

Subroutine  TAB (NDATA,  NCOLS.  NLINES.  rnu.AR 


» LIN  LAB,  T IP  LAB,  ISH1FT,  KD,  NAMES') 
LINLAB,  TJPLAB,  ISHIFT.  KD1 


Arguments  are: 

a two-dimensional  array  to  be  printed  out 
NLULS  number  of  columns 
NLINES  number  of  lines 
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COLLAB  column  label 

LIN LAB  row  label 

TOPLAB  overall  label 

I SHI FT  index  offset  for  rows 

KD  first  dimension  of  NDATA 

NAMES  list  of  column  headings 

WTAB  and  TAB  write  tables  50  lines  long  by  10  columns  wide  with  a row  index. 
WTAB  has  column  headings,  TAB  has  only  indices. 


MAIN  Program 

Most  of  the  computation  is  performed  in  the  MAIN  program.  MAIN 
consists  of  a number  of  sections  identifying  the  loops  over  time  using  the 
index  IY  (for  year  index) . 


Loop  on  100  This  loop  computes  the  training  demands 

Loop  on  300  This  loop  writes  the  results  of  the  100  loop 

Loop  on  200  This  loop  computes  the  PMT  demands 

Loop  on  340  This  loop  writes  the  results  of  the  200  loop 

Loop  on  400  This  loop  selects  the  source  for  the  CCTS 

demands 


The  resource  and  track  use  reports  are  then  written. 

• Loop  on  600  This  loop  computes  the  resource  use  and 
writes  the  resource  use  records  in  the  proper  order  for 
Phase  4 of  TRAM  on  Unit  1. 

The  final  step  is  a listing  of  the  resources  used  and  the  generation 
of  the  end  of  file  record. 

7.3*  NOTES 

In  the  loop  on  Table  100,  NNCPY  (IY  + 1)  contains  the  number  of 
crews  currently  in  the  system.  On  the  next  pass  through  the  loop,  this  is 
used  to  compute  the  number  of  new  crews  required  that  year. 


The  resource  use  date  (IDTCU)  is  2 calendar  units  less  than  the  end 
of  the  year.  Normally  the  number  of  calendar  units  per  year  is  1500  so  this 
should  not  present  a problem. 
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7-4  COMMONS 

The  contents  of  the  commons  are  indicated  in  Tables  7.1,  7.2  and  7.3. 

Table  7.1 
Common  REALS  - 

Real  Data  Initialized  by  INPUT  and  BLOCK  DATA 


Variable 

Definiti on 

Defined 

AR 

Attention  Ratio 

Input 

CR 

Crew  Ratio 

Input 

PUPR 

Copilot  Upgrade  Ratio 

Input 

ANAME  (5) 

1 PLTS' 

Block  Data 

' CPLT' 

Block  Data 

'0S0  ' 

Block  Data 

' DSO  ' 

Block  Data 

'XTRA' 

Block  Data 

RESNAM(3,80) 

Resource  Names 

(3  words  each) 

Input 

Table  7.2 

Common  ICS  - 

Integer 

Constants  (All  defined  in 

INPUT) 

NY 

Number  of  Years 

NYO 

Date  of  Year  1 

NB 

Number  of  Bases 

NS 

Number  of  Sources 

NT 

Number  of  Tracks 

NR 

Number  of  Resources 

I DELAY 

Attrition  Delay 

NCU 

Number  of  Calendar  Units/Year 

ITAPE 

Data  Set  Flag 
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Table  7.3 
Common  INTAR  - 
Integer  Arrays 


Except  for  IDT  and  ISTAB,  all  names  are  of  the  form  XXXPYY  where 
XXX  is  arbitrary,  P per  "per"  and  YY  is  one  or  two  suffix  letters  which  indicate 
the  dependencies  as  follows: 


B 

Air  Bases 

P 

Position 

S 

Source 

R 

Resource 

T 

Tracks 

Y 

Years 

Variable 

Definition 

Definec 

NACPBY 

No.  of  aircraft  per  base  year  year 

Main 

NADPBY 

No.  of  deliveries  per  base  each  year 

Input 

NACPY 

No.  of  aircraft  in  system  each  year 

Main 

NADPY 

No.  of  deliveries  each  year 

Input 

NCPBY 

No.  of  crews  at  each  base  each  year 

Main 

NCPY 

No.  of  crews  in  system  each  year 

Main 

NNCPY 

No.  of  new  crews  trained  each  year 

Main 

NRCPY 

No.  of  replacement  crews  trained  each  year 

Main 

NTTDPY 

No.  of  total  trainee  demands  each  year 

Main 

NXCPY 

No.  of  extra  pairs  each  year 

Main 

ILTID 

Lower  PMT  track  list  index  for  each  base 

Input 

IUTID 

Upper  PMT  track  list  index  for  each  base 

Input 

IDT 

Track  index  list 

Input 

NTPTY 

No.  of  trainees  in  each  track  each  year 

Main 

NPPY 

No.  of  preps  trained  each  year 

Main 

ISTAB 

Source  for  each  CCTS  track 

Input 

NSPSY 

No.  of  trainees  available  from  each  source  each  year 

Input 

IUSPSY 

No.  of  trainees  drawn  from  each  source  each  year 

Main 

INSPTY 

No.  of  unit  trainees  in  each  track  each  year 

Main 

IRUPRY 

Amount  of  each  resources  used  each  year 

Main 

IRCPRT 

Amount  of  each  resources  used  by  a unit  trainee 

Input 

in  each  track. 
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7.5  REPORTS 


repoits°a^e::tS  ^ COntained  in  the  programmer's  guide.  The 


1, 

2. 

3. 

4. 

5. 

6. 


10. 

11. 

12. 


Parameters  - The  first  2 cards 

Air  Base  List  - Base  names,  indices,  and  PMT  track  lists 
Delivery  List  - Years  by  bases 

Track  List  - Sources  index  for  each  CCTS  track 

Availability  - Trainees  available  years  by  sources 

bySresources  " Resources  use d by  unit  trainees  - tracks 

criws!u^;j:r^^  sjirsr* tota; A/c  «, 

upgrades,  total  full  crew  training, Gaining 
Detailed  Base  Delivery  List  P 8 

PMT  Track  Trainees  - Number  r>f  nm- 

years  by  track  unit  trainees  per  track. 

Source  Use  Matrix  - iico 

source  ramees  from  each  source,  years  by 

Brack  Use  - Trainees  taught  by  years  and  track 
Resource  Use  - Resources  used,  years  by  resource. 


7.6  DATA  SET  OUTPUT 


Two  files  are  produced. 

FORTRAN  Unit  1 contains  resource  use  records  The 

sorted  by  dato  and — — e«*  ^.gicai  co;r:  "ust  le 

• Date  in  CUs 

• Resource  number 

• Resource  originally  available 

• Resource  remaining 

The  resource  originally  available  is  nominally  99999  units  A , 

the  time  999999  is  produced  as  an  end  of  file  record.  reC°rd  ’ 
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FORTRAN  Unit  2 is  the  resource  name  file.  It  contains: 


****  ■ 


